#!/usr/bin/perl
sub lisp
{
    my $query = shift;

    $query =~ s/s/th/g;

    IRC::command ("/say $query");

    return 1;
}

IRC::register ("lisp", "1.0", "", "");

IRC::add_command_handler ("lisp", "lisp");