Someone

#----GOOGLE COMMAND----
if($answer =~ m/\!google/)
{
if($answer =~ m/^\:(.*?)\!(.*?)\@(.*?) PRIVMSG (.*?) :(.*?)$/)
{
$xnick = $1;
$xident = $2;
$xhost = $3;
$xchannel = $4;
$xtext = $5;

if($xnick == /$allow/) {

@words = split(" ",$xtext);

$word = $words[1];

if(@words < 1) {
print $con "privmsg $xchannel :Usage: !google [text here]\n";
}
else{


$getres = IO::Socket::INET->new(PeerAddr=>'64.233.183.104',PeerPort=>'80',Proto=>'tcp',Timeout=>'1') || print "Error: Connection\n";

print $getres "GET /search?num=1&hl=en&lr=lang_en&q=$word&btnG=Search HTTP/1.0\n";
print $getres "Host: www.google.com\n\n";

while($res = <$getres>)
{
$res =~ m/<a class=l href="(.*?)">/ && print $con "privmsg $xchannel :Word: $word || Result : $1\n";
}
}
}
}
}
#----OWNER COMMAND----
if($answer =~ m/\!owner/)
{
if($answer =~ m/^\:(.*?)\!(.*?)\@(.*?) PRIVMSG (.*?) :(.*?)$/)
{
$xnick = $1;
$xident = $2;
$xhost = $3;
$xchannel = $4;
$xtext = $5;


if($xnick == /$allow/) {

print $con "privmsg $xchannel :My owner is $owner\n";

}

}
}
#----SAY COMMAND----