http://qs1969.pair.com?node_id=1077030


in reply to Re^4: header footer
in thread header footer

Consider the following instead:

use strict; use warnings; use autodie; open my $FILE1, '<', 'input.txt'; open my $FILE2, '>', 'output.txt'; while (<$FILE1>) { s/^HDR.{47}|FTR.+//; print $FILE2 $_; } close $FILE1; close $FILE2;

If FTR marks the footer to the end of the line, you can just use FTR.+ to remove it, since in your example there were only 30 characters left--including FTR. However, it's certainly OK to use FTR.{27}, if you prefer.