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