# handle CTCP {LOOK,OGLE}
sub _lookpm {
    my $boo=shift(@_);
    my @x=split(/ /,$boo);
    my $y=(split('!',$x[0],2))[0];
    my $z=IRC::get_info(3);
    my $man=IRC::get_info(1);
    my $booya=$x[2];
. . .

##</code><code>##

# handle CTCP {LOOK,OGLE}
sub _lookpm {
    my $line=shift(@_);
    my @pargv=split(/ /,$line);
    my $who=(split('!',$pargv[0],2))[0];
    my $serv=IRC::get_info(3);
    my $nick=IRC::get_info(1);
    my $context=$pargv[2];
. . .