perl -e "while (<*>) {open(F,$_) or next;while(<F>){print unless /^Total\s\d{1,5}/}}" > ..\newFile