perl -e "foreach(grep {m/(\d+_\d+)\.REPT/g} glob('*')){$aa=$_; rename($aa,$_) if $_=~s/REPT/ERR/;};"