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);
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);