if(!@ARGV) {
    print <<"EOC";
Usage: reformat.exe -b files

    [-b]     : include this flag if you would like to automatically
          backup all files being reformatted

    [files]    : files to reformat
EOC
    sleep;
}

@f = @ARGV;

if($ARGV[0] eq '-b') {
    $b = 1;
    shift(@ARGV);
} else {
    $b = 0;
}

foreach $f (@f) {
    $f =~ s/\\/\//g;

    open(FILE,"$f");
    @file = <FILE>;
    close(FILE);

    if($b) {
        open(BKUP,">$f.bak");
        foreach $i (@file) {print BKUP $i}
        close(BKUP);
    }

    foreach (@file) {chomp}

    $file = join("\n",@file);

    $r = chr(13);
    $n = chr(10);

    $file =~ s/$r/$n/g;

    open(FILE,">$f");
    print FILE $file;
    close(FILE);
}
[download]