$ perl -i.bak -pe 's/\s*[\r\n]+$/\n/g;' ./a*.pl