my @other_lines;

while(<FILE>) {
   # whatever regex to strip out lines
               
   (/blahblah$/) ? print OUTFILE : push @other_lines, $_;
}  

print OUTFILE @other_lines;