Advance search in iTunes

iTunes.pl

#!/usr/bin/env perl

use 5.014;

use WWW::Mechanize;
use List::MoreUtils qw(uniq);


my $url = "http://search.itunes.apple.com/WebObjects/MZSearch.woa/wa/search?media=iTunesU&submit=media&term=e%20207";

my $mech = WWW::Mechanize->new();
$mech->add_header('User-agent' => 'iTunes/10.6.3.25');
$mech->get($url);
my $doc = $mech->content();

say "-"x50;
#
my @lines = split '\n', $doc;
for my $line (@lines) {
    say $1 if $line =~ /anonymous-download-url=\"(.*?)\"/;
}