Select Code to Download

   while (my $elements[20] = <INFILE>) {
        substr $elements, 7, 0, ' ';
        }

substr $elements[20], 7, 0, '  ';

@ARGV or die "Usage: $0  input-file output-file\n";