srlowry, if you're confident that every line will have an unwanted character appended to the end of it, you can simply chop it off.

HTH, andye

update:

Looking at your code, it looks like you're using map in a way that's a little unusual. Instead of doing this:

            map {print "$_\n"} @List; 
            map {print FILE "$_"."\n"} @List;
[download]

you might want to consider using foreach instead of map:

foreach (@List) {
      chop;
      print "$_ \n";
      print FILE "$_ \n";
}
[download]

best, andye