#!/usr/bin/perl

my $filestring = $ARGV[0];

my $outfile_str = "$ARGV[1]"."_new";

open(IN, "<$filestring");
open(OUT, ">$outfile_str");

my $string_parser;

while(<IN>){
   $string_parser = <IN>;
   print "$string_parser";
   chomp $string_parser;
   chop $string_parser;
   print OUT "$string_parser ";
   }
   
close(IN);
close(OUT);

Any ideas?