All pastes #435162 Raw Edit

Untitled

public text v1 · immutable
·published 2007-04-11 20:19 UTC
rendered paste body
#!/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");