foreach my $url (
    '<a href="/story/43480/">The Bottled Water Lie</a>',
    '<a href="/story/video/43480/">The Bottled Water Lie</a>',
) {
  print " $url\n";

  if ( $url =~ m{href="(.+)">(.+)</a>} ) {

    print "O1: $1\n";
    print "O2: $2\n";

    if ( $1 !~ /video/ ) {

        print "Y1: $1\n";
        print "Y2: $2\n";

    }
    else {

        print "N1: $1\n";
        print "N2: $2\n";

    }

    print "F1: $1\n";
    print "F2: $2\n";

  }

  print "L1: $1\n";
  print "L2: $2\n";

}

##</code><code>##

 <a href="/story/43480/">The Bottled Water Lie</a>
O1: /story/43480/
O2: The Bottled Water Lie
Y1: /story/43480/
Y2: The Bottled Water Lie
F1: /story/43480/
F2: The Bottled Water Lie
L1: /story/43480/
L2: The Bottled Water Lie
 <a href="/story/video/43480/">The Bottled Water Lie</a>
O1: /story/video/43480/
O2: The Bottled Water Lie
N1:
N2:
F1:
F2:
L1: /story/video/43480/
L2: The Bottled Water Lie
##</code><code>##

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