Well, it's quite inefficient. You're starting a process for each file, and do a substitution for every empty string.

sub dos2unix {
    system perl => '-i', '-pe' => 'tr/\x0D//d' @_ 
}
[download]

Abigail