my @links = grep {$_->text /$pattern/i} $agent->links();

for (@links) {
  storeurl( $_->url, $trackname, $year );
};