use strict;
use warnings;
use autodie;

my $file = '1977_SoPW.txt';

open(my $fh, '<:raw', $file);
my @test = <$fh>;
close $fh;

for my $line (@test)
{
    print ord(substr($line, -2, 1)), "\t";
    print ord(substr($line, -1, 1)), "\n";
}

print "\n";

##</code><code>##

16:51 >perl 1977_SoPW.pl
13      10
46      10
13      10


16:51 >

##</code><code>##

my $test = "\x0D\x0A\x0D\x0A\x0D\x0A\x0D\x0A\x0D\x0A";

##</code><code>##

my $test = "\r\n\r\n\r\n\r\n\r\n";