Select Code to Download

my %trans = (
   1 => "one",
...
) ;  #<---note semi-colon
foreach (split //, $line) {
....

print "Enter some letters and numbers:  " ;
my $line = <STDIN> ;
...
...
foreach (split //, $print) {
...