%  perl  -pi~ -e 's/\r//'  *.txt