yarr.pl

sub yarr {
    my ($server, $data, $nick, $address, $target) = @_;
    my $reg = qr/(
                   (?(4) Y* | Y+)
                   A+
                   (?(4) R+ | R{2,})
                   (G+H+)?
                 )
                 |
                 (?:A+H+O+Y+)
                 |
                 (?:M+A+T+E+Y+)

                 (?:\:){0}
                /iox;

    if ($data =~ /$reg/) {
        my $num = int(rand(4));
        my $yarr = "YAARR" . ("R" x $num);
        $server->command("msg $target $yarr");
    }
}

Irssi::signal_add("message public", "yarr");