Select Code to Download

use Mojo::DOM;
my $dom = Mojo::DOM->new(<<'END_HTML');
...
$dom->find('a[href]')->each(sub {
    print "$_ / ",$_->{href}," / ",$_->all_text,"\n";
});