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";
}

##</code><code>##

http://www.youtube.com/watch?v=JP68g3SYObU