perl -e '/^(\d+_\d+)\.REPT$/&&`mv $_ $1.ERR`for<*>'