my $parser;
my $token;
if (not length $options{asin}) {
- my $url_end = uri_escape("$options{artist} $options{album}");
+ my ($artist,$album) = map {s/_/ /g; $_} @options{qw(artist album)};
+ my $url_end = uri_escape("$artist $album");
mm_get($m,"http://www.amazon.com/s/ref=nb_sb_noss?url=search-alias%3Dpopular&field-keywords=$url_end");
$content = $m->content();
$parser = HTML::TokeParser->new(\$content);