Untitled

sub updateque
{
    $line = shift(@_);
    my ($oldnick, $discard1, $newnick) = split(/ |!/, $line, 3); ## :InitH!inithello@Init-4C8CF975 NICK :InitH123
    $oldnick =~ s/://;
    $newnick =~ s/NICK ://;
    my $qsize = @dccque;
    for (my $i =0; $i < $qsize; $i++)
    {
        $dccque[$i] =~ s/$oldnick/$newnick/;
    }
}