../../Task/Smith-numbers/Perl