Help for this page

Select Code to Download


  1. or download this
    foreach my $url (
    '<a href="/story/43480/">The Bottled Water Lie</a>',
...
  print "L2: $2\n";

}
  2. or download this
     <a href="/story/43480/">The Bottled Water Lie</a>
O1: /story/43480/
...
F2:
L1: /story/video/43480/
L2: The Bottled Water Lie
  3. or download this
    $url =~ m{href="(.+)">(.+)</a>} and $1 !~ /video/;
print "$1 $2 \n";