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

}