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";