open (file.....)
while (<FILE>) {
   if /blah/ {
       <FILE>;   # Skip one line
       <FILE> foreach(1..$skip); # Skip a numer of lines