Select Code to Download

    $begin .= substr $num, 0, 1, q{} until       7 == $begin =~ tr/[0-
+9]//;
...
    $end = substr($num, -1, 1, q{}) . $end until 5 == $end   =~ tr/[0-
+9//;
...
    $num =~ tr/[0-9]/X/;

    $begin .= substr $num, 0, 1, q{} until       7 == $begin =~ tr/0-9
+//;
...
    $end = substr($num, -1, 1, q{}) . $end until 5 == $end   =~ tr/0-9
+//;
...
    $num =~ tr/0-9/X/;