# 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];
. . .