use strict;
my $me = "read52";

# Perl script to check (and revise?) the long lines in file save52.dat

my $file52 = "save52.dat";
my $newfile52 = "save52x.dat";

open( S52, "<$file52" ) or
  die "$me: Failure opening old long-lines file '$file52'.\n";

open( NS52, ">$newfile52" ) or
  die "$me: Failure opening new long-lines file '$newfile52'.\n";

while ( <S52> )
{
  chomp;
  my $new = substr( $_, 5, 9 ) . substr( $_, 53 );
  print NS52 "$new\n";
}
close S52;
close NS52;