Select Code to Download

#!/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