Untitled

sub getdata{
    ($server,$msg,$nick,$address,$target) = @_;
    if ($target eq $channel && $nick eq $botname && $address eq $botaddr) {   
        if ($msg == /Category: Music/Videos/) {
            #print Ignoring Category            
            return;
        } elseif ($msg =~ /Name....:/) {
            $release = substr $msg, 10;
        } elsif ($msg =~ /URL.....:.*=(\d{4,6})&/) {
            $idm = $1;
            match();
        }
    }
}