perl -Mr -Mg -ple '...' *