Help for this page

Select Code to Download

Select or download this

sub findpattern
 {
   my $data = shift;
...
    }
   return undef;
 }