Select Code to Download

open my $fh, '<', 'short.txt';
binmode $fh;
my $linein = <$fh>;
...
chomp $linein;
print " " . ord($_) foreach split //, $linein;
print "\n";

ab
123

 97 98 13 10
 97 98 13