Perlで漢字をひらがなに変換してみた

#!/usr/bin/env perl
use strict;
use warnings;
use Encode;
use utf8;
use Text::MeCab;

my $str = 'お腹が空いたので帰ります';

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

my $yomi;
for ( my $node = $mecab->parse($str); $node->surface; $node = $node->next ) {
    my @features = split /,/, $node->feature;
    $yomi .= $features[7];
}
$yomi = decode_utf8 $yomi;
# カタカナからひらがなへ ※喘いでるわけではないです！
$yomi =~ tr/ァ-ン/ぁ-ん/;
print encode_utf8 $yomi,"\n";