漢字のフリガナ取得

mecabつかうのが楽かなぁ。他にいい方法があるといいけど。コードももう少しましにならないかなぁ。

#!usr/bin/perl

use strict;
use Text::MeCab;

my $text="難しい漢字です。";
print get_kana( $text ); #結果->ムズカシイカンジデス。

sub get_kana {
    my $text = shift;

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

    my $result = '';
    for (my $node = $mecab->parse($text); $node; $node = $node->next) {
        my @data = split( ',', $node->feature );
        if( scalar @data > 8  && $data[8] ne '*' ) {
            $result .= $data[8];
        }
    }

    return $result;
}