$i=1;
$mech->get("http://www.somesite.com/");
@links = $agent->links();

foreach (@links) {
if ($links[$i]->url() =~ m!(-[0-9][0-9][0-9][0-9][0-9][0-9]*)!) {
$links[$i]->url() =~ m!([0-9][0-9][0-9][0-9][0-9][0-9]*)!;
$art[$i] = $1;
print "$art[$i]\n";
}
$i++;
}