To listen the IRC log

yukkuri_irc.pl

use warnings;
use strict;
use Text::MeCab;
use Perl6::Say;

my $mecab = Text::MeCab->new;

while(<>){
    chomp;
    my (undef,undef, @elms)  = split ' ', $_;
    my $text = join "", @elms;

    my $node = $mecab->parse($text);

    my $res = "";
    while ($node) {
        my @features = split ',', $node->feature;
        my $pronaunce =  $features[$#features];
        $pronaunce = $node->surface if $pronaunce eq '*';
        $res .= $pronaunce if $pronaunce;
        $node = $node->next
    }
    say $res;
    system "/usr/local/bin/SayKana $res";
}