sub dos2unix { system( qq{perl -i -pe 's/\\cM*//g' $_} ) for @_ }