- or download this
foreach my $url (
'<a href="/story/43480/">The Bottled Water Lie</a>',
...
print "L2: $2\n";
}
- or download this
<a href="/story/43480/">The Bottled Water Lie</a>
O1: /story/43480/
...
F2:
L1: /story/video/43480/
L2: The Bottled Water Lie
- or download this
$url =~ m{href="(.+)">(.+)</a>} and $1 !~ /video/;
print "$1 $2 \n";