Select Code to Download

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

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