use strict;

open (INFILE, "<$ARGV[0]"); 

my @file=<INFILE>;

close(INFILE);

open (OUTFILE, ">>$ARGV[1]");
foreach my $inline (@file) {
chomp $inline;
print OUTFILE "$inline/015/012";


}

close (OUTFILE);
