my @links = map {$_->text} grep {$_->text =~ m/^\d+$/} $mech->find_all_links();