../../Task/Vampire-number/Perl