Select Code to Download

map{$r+=36**$i++*(/\D/?-55+ord:$_)}reverse split'';

#!/usr/bin/perl

...
$_="666";
map{$u+=10**$l++*(/\D/?-55+ord:$_)}reverse split'';
print "$u\n";