!# /usr/bin/perl
#use strict qw(subs vars refs);
#use Getopt::Long;

# my $ret = GetOptions ('o=s', \$orignal, 'n=s', \$new);
$original = "resultsjames";
$newFile = "test";

#open(FILE, <ARGV>);
#open(FILE2, <ARGV>);
#open(FILE, $original);
#open(FILE2, ">".$newFile);
open(FILE, "resultsjames");
open(FILE2, ">test");

while (my $line = <FILE>)
{
        $line =~ s/^\+//;
        print FILE2 $line;
}

close(FILE);
close(FILE2);