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

83