Help for this page
#!/usr/bin/perl use utf8; use 5.022; use strict; ... open($fh, ">", $filename) or die "Cannot open \"$filename\" for output +: $!\n"; print $fh "Replacement Header Text Here\n\n$column_line"; print $fh "$_\n" foreach @data_lines;
Original Header Text ... 7 SEALEVEL SYSTEMS, INC. 8 MASTERBILT
Replacement Header Text Here ... 3 SEALEVEL SYSTEMS 1 SEBASTIAN COMMUNICATIONS