#!/usr/bin/perl

open(INFILE, $ARGV[0]);
open(OUTFILE, ">>$ARGV[0].out");
foreach $line (<INFILE>) {
    print "$line";
    $line =~ s/.{8}//;
    print "$line";
    <STDIN>;
}
close(OUTFILE);
close(INFILE);