Help for this page

Select Code to Download


  1. or download this
     # ==> $keyptr, @inputs as in your code

...
 push @hits, { /($rg):(.+?)(?=(?:$rg)|$)/g } for @inputs ;

 # thats it
  2. or download this
     ...
 for my $rec (@hits) {
...
    print "$_ => $rec->{$_}\n" for sort keys %$rec
 }
 ...
  3. or download this
     ====
 ANALYSIS =>  yada ^M yada 
...
 DEFERRED =>  blahblah ^M blah ^M 
 NAME / NUMBER =>  John 369
 REMARKS =>  Yada2