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