my ($line, $result);
while($line = <HTMLFILE>) {
  if($line =~ /what_you_are_looking_for/) {
    $result = $line;
    for(0..3) {
      $result .= <HTMLFILE>;
    }
    last;
   }
}
[download]