perl -Match -i.can -please *.ext