perl -i.can -please file

##</code><code>##

rm *.can
del *.can

##</code><code>##

@ARGV= map { glob } @ARGV;

##</code><code>##

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

##</code><code>##

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