../../Task/Weird-numbers/Perl