note Kenosis <p>Perhaps using [http://search.cpan.org/~jesse/WWW-Mechanize-1.72/lib/WWW/Mechanize.pm|WWW::Mechanize] would be helpful in this case:</p> <c> use strict; use warnings; use WWW::Mechanize; my $mech = WWW::Mechanize->new(); my $url = 'http://www.youtube.com/results?search_query=run+flo+rida'; $mech->get($url); my $firstVideo = $mech->find_link( url_regex => qr!/watch\?v=! ); if ( defined $firstVideo ) { print 'http://www.youtube.com' . $firstVideo->url; } else { print "Unable to find link.\n"; } </c> <p>Output:</p> <c> http://www.youtube.com/watch?v=JP68g3SYObU </c> 1014379 1014379