#!/usr/local/bin/perl
   use strict;
   open( FILE, "file" ) || die $!;

   while( <FILE> ) {
      if( /regexp/ ) {
          print;
          last;
      }
   }