Miscellany

/usr/bin/perl

 use WWW::Mechanize;

 my $start_url = "http://blah.com/";
 my $mech = WWW::Mechanize->new(agent => "Linux Mozilla");

 $mech->get($start_url);
 @urls = $mech->links;

 while(defined ($next = $mech->find_link( text=> 'Next >' ))) {
   foreach $a (@urls) {
      $url=$a->url;
         if($url =~ /video-/) {
            print $url."\n";
         }
   }
   $n_url = $next->url;
   $mech->get("$start_url"."$n_url");
 }