kanマクロ

kanマクロ

while (<IRC>) {
    print "ドン引き¥n" if /<kan.*>/;
}
while (<IRC>) {
    print "/kick kan¥n" if /<kan.*プ/;
}