Help for this page
$_ = join ' ', split;
my $check = chop $digits;
my %x; @x{0..9,'A'..'Z'} = (0..35); my $converted = join '', map {$x{$_}} split //, $digits;