Untitled

Link Harvester - How can i harvest YouTube Video ID using Perl?
use lwp;
my $ua ="mozzila";
my $search = ua->get("http://www.youtube.com/results?search_query=funny+video&aq=f")->content;

while ($search =~m,# ok i do not know what i must put here,sgi)
{
print "$1/n";
}

while ($search =~ m/href="/watch?v=([a-zA-Z0-9_-]+)"/) {
    print "$1n";
}

use LWP::Simple;
print $_."n" for (get("http://www.youtube.com/results?search_query=funny+video&aq=f") =~ m/href="/watch?v=([a-zA-Z0-9_-]+)"/g);