open FH, "file";
while (<FH>) {
  last if /regexp/;
}
while (<FH>) {
  do something;
}