I've got a mangled file (yes, it's my fault) that has at least 2 junky Windows control characters inserted at the beginning of every line. Below, you can see my attempt at picking the control characters off, but I'm obviously doing something wrong because it's not working. So, Monks, I beg you, hit me with your best advice.

#!/usr/bin/perl -w
use strict;
my ($infile, $outfile, $line);

$infile = "c:/perldev/restore.txt";
$outfile = "c:/perldev/fixed_restore.txt";

open (INFILE, $infile) || die "Can't open $infile! $!";
open (OUTFILE, ">$outfile) || die "Can't open $outfile! $!";

while (<INFILE>) {
    $line = $_;
    $line =~ s/^\D{0,2}|\s{0,2}//;
    
    print OUTFILE $line;
}
close (INFILE);
close (OUTFILE);
[download]