[Perl] - Lyrics.pl

+ มาอีกแล้วคับท่านกับ perl ของผม มาครั้งนี้เป็น perl เอาใว้หาเนื้อเพลงหรือ lyrics
+ ມາອີກແລ້ວກັບ perl ຫາເນື້ອເພງຫລື lyrics

+ Download Here...!!!

use LWP::UserAgent;

my $ua = LWP::UserAgent->new(agent => 'Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1)');
$ua->timeout(10);
print "\t\n[+] Song : ";
chomp($song = );
print "\n[+] $song\n";
$song =~s/\s/\+/ig;
my $target = "http://www.lyricstime.com/search/?q=$song&t=default";
$res = $ua->get($target);
$ct = $res->content();
if($ct =~m/
/ig)

{

  $res = $ua->get("http://www.lyricstime.com/$1");

  $ct2 = $res->content();

  if($ct2 =~m/
([^~]+)