Hello,

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

Probably not the best way (2 foos), but it works.

Hope this helps,,,

Aziz,,,