Here is one with 2 chars less :-) perl -e 'map{`mv $_ $1.ERR`if/^(\d+_\d+)\.REPT$/}<*>' Or taking 2 more off: perl -e '/^(\d+_\d+)\.REPT$/&&`mv $_ $1.ERR`for<*>' But I wouldn't use it either.

Aziz,,,