my @links = $mech->links;

for( @links ){
	print text($_->[0]).$/
}

sub text {
	$_ = uri_unescape(shift)
}

__END__
results:
Beatles - 01 - Michelle.mp3
Beatles - 02 - Drive My Car.mp3
Beatles - 03 - What Goes On.mp3