#!/usr/bin/perl -w
# Usage: dos2unix <DIRECTORY>

$directory = shift @ARGV;
$directory = '.' unless $directory;
chdir( $directory ) || die "Unable to enter directory '$directory'.\n$
+!\n";

@files = <*.data>;
$| = 1;
$linesFixed = 0;
foreach( @files ) {
    print "$_\t";
    open(INPUT, "<$_");
    rename( $_, "$_.bak") || die "Unable to rename $_\n$!\n";
    open(OUTPUT, ">$_");
    while(<INPUT>) {
    if ( s/\r\n/\n/ ) {
        $linesFixed++;
    }
    print OUTPUT;
    }
} continue {
    print "($linesFixed)\n";
    $linesFixed = 0;
    close INPUT;
    close OUTPUT;
}
[download]