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