perl -we '/(.*)\./&&rename"$1.foo","$1.bar"for<*.foo>'