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