my @links = $mech->links;


for( @links ){
        print $_->text,$/
}

__END__
results:
Beatles - 01 - Miche..>
Beatles - 02 - Drive..>
Beatles - 03 - What ..>
...