Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
my @sections = grep /$value/i, (join '', @lines) =~ /^t.*?\nT.*?\n/gms
+;

print join "\n", @sections; # so there is a gap between sections
  2. or download this
    t13:45
D13:45
...
D13:45
S13:45 UNICORN
T13:45