type *>"perl -w while(<STDIN>){$_ =! /Total\s\d{1,5}/g;}}" >..\newFile

#This is rubbish I know.  Just as an example though.