remove specific lines from flat file using perl

try to do some code next time.
one way.

#!/usr/bin/perl 
open(F, "<file") or die "cannot open file:$!\n";
while ( <F> ) {
 if ( /COL1 COL2/ .. /^$/ ) {
  print;
 } 
}
close(F);