"perl -e 'use LWP::UserAgent; my $ua = LWP::UserAgent->new(env_proxy => 1, keep_alive => 1, timeout => 30,); $ua->agent(\"\");  my ($artist,$title) = (\"" & art & "\",\"" & nom & "\");  my $searchUrl = \"http://www.google.com/search?hl=en&btnI=1&q=site:sing365.com \"; my $searchString = \"$artist \\\"$title Lyrics\\\" \\\"Print\\\"\"; my $lyricPage = $ua->get($searchUrl.$searchString); print \"Error while getting \", $lyricPage->request->uri, \" -- \", $lyricPage->status_line, \"Aborting\" unless $lyricPage->is_success(); my $lyrics = ($lyricPage->content =~ /color=red>Send.+script><BR>.(.+)<hr size=1 color=#cccccc>If you find some error/si)[0];  $lyrics =~ s/<(([^ >]|)*)>//g; $lyrics =~ s/\\&quot;/\"/g; $lyrics =~ s/\\&amp;/&/g; $lyrics =~ s/\\&apos;/'\\''/g; $lyrics =~ s/\\n+$//; print $lyrics;'"