Help for this page

Select Code to Download


  1. or download this
    my @arr = grep {/\[tab\]/ and s/^<p>//} split /<\/p>/, $contents;
  2. or download this
    my @arr = grep /\[tab\]/, split /(?<=<\/p>)/, $contents;
  3. or download this
    {
  local $/ = '</p>';
...
  @arr = grep /^<p>/ && /\[tab\]/, <STR>;
  print "read $_\n" for @arr;
}