User:Mike.lifeguard/lmgtfy.pl

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;
});