for (qw( video book )) {
   'unchanged' =~ /(.*)/;  # Set $1

   if ( $_ !~ /(video)/ ) {
      print "true -> $1\n";
   } else {
      print "false -> $1\n";
   }
}

##</code><code>##

false -> video
true -> unchanged

##</code><code>##

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="(.+)">(.+)</a>}
      or next;

   $url =~ /video/
      and next;

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

##</code><code>##

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");
}