Select Code to Download

<a href="/planes-desktop-wallpapers/page/8">8</a>
<a href="/planes-desktop-wallpapers/page/9">9</a>
<a href="/planes-desktop-wallpapers/page/10">10</a>

#!/usr/bin/perl -w
use strict;
use warnings;
...
my @links = map {$_->text} grep {$_->text =~ m/\d+/}
$mech->find_all_links();
print max @links;