perl -i.can -pley/\\r//d