foreach my $link (
    '<a href="/story/43480/">The Bottled Water Lie</a>',
    '<a href="/story/video/43480/">The Bottled Water Lie</a>',
) {
   my ($url, $title) = $link =~ m{href="((?:(?!video).)+)">(.+)</a>}
      or next;

   print("$url: $title\n");
}