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