my $name = 'Let Me Google That For You';
my $version = '0.1';
my $description = 'Tells someone to Google it'; # How rude!
Xchat::register($name, $version, $description);
Xchat::print("Loading $name $version: $description");
Xchat::hook_command('lmgtfy', sub {
# $_ = $_[1][1];
my ($target, $query) = split(/\s/, $_[1][1], 2);
$query =~ s/([^\w'*~!. -])/sprintf '%%%02x', ord $1/eg;
$query =~ tr/ /+/;
Xchat::command( 'say ' . $target . ': http://lmgtfy.org?q=' . $query );
return Xchat::EAT_XCHAT;
});