Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
Event Number Four
DESCRIPTION
Lorem ipsum
  2. or download this
     <Event 1>
 <Event 2>
 <The Third Event>
 <Event Number Four>
(All done. 4 result(s) found.)
  3. or download this
    my @results = $string =~ m/SUMMARY\s*(.+?)\s*DESCRIPTION/g;
print map { " <$_>\n"} @results;