https://dev.to/vinodk89/perl-weekly-challenge-345-2bld