Help for this page

Select Code to Download


  1. or download this
    $_ = join ' ', split;
  2. or download this
    my $check = chop $digits;
  3. or download this
    my %x; @x{0..9,'A'..'Z'} = (0..35);
my $converted =  join '', map {$x{$_}} split //, $digits;