perl -e 'map{`mv $_ $1.ERR`if/^(\d+_\d+)\.REPT$/}<*>'

##</code><code>##

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