...
my $oshort_line = substr( $oline, 0, 49 );
...
my $nshort_line = substr( $nline, 0, 49 );
...