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

ab
123

##</code><code>##

 97 98 13 10
 97 98 13