#!/usr/bin/perl -w

use WWW::Mechanize;

$url='https://class.coursera.org/automata-002/lecture/index';
$m = WWW::Mechanize->new();
$m->get($url);
my @links = $m->find_all_links(url_regex => qr/lecture_id/i );
for my $link(@links){
printf "link: %s\n",$link->url;
printf("%s", $link->url);
}