#!perl

@files = glob "*.r*";

foreach $file (@files) {

    open INFILE, $file;
    binmode INFILE;
    @lines = <INFILE>;
    close INFILE;

    $lines[24] = "F ^V2.0168662\n";
    $lines[47] = "K. J. Law Eng.\n";
    $lines[48] = "T6600\n";

    open OUTFILE, ">$file";
    binmode OUTFILE;
    print OUTFILE @lines;
    close OUTFILE;
}
