Untested

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

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

or better yet ( also untested )

   perl -ne 'print, last if /regexp/' file
[download]