Select Code to Download

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

}

 <a href="/story/43480/">The Bottled Water Lie</a>
O1: /story/43480/
...
F2:
L1: /story/video/43480/
L2: The Bottled Water Lie

$url =~ m{href="(.+)">(.+)</a>} and $1 !~ /video/;
print "$1 $2 \n";