Select Code to Download

   #!/usr/local/bin/perl
   use strict;
...
          last;
      }
   }

   perl -ne 'print, last if /regexp/' file