my @top_lines;
my @other_lines;

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

print OUTFILE @top_lines;
print OUTFILE @other_lines;