Deleting rows in fixed-width file based on condition

I have the following perl script that reads a fixed-width file and replaces values in various sections of the file. --- open (IN, '< in.txt'); open (OUT, '> out_test.txt'); while () { chomp; $first_section = substr $_, 0, 381; # ex

Search and replace values in a fixed-width file

I have the following perl script that reads a fixed-width file and replaces values in various sections of the file. --- open (IN, '< in.txt'); open (OUT, '> out_test.txt'); while () { chomp; $first_section = substr $_, 0, 381; # ex