Perlで文字数カウント

use utf8;

print length "銀河系を滅ぼし兼ねない危機が迫り来たとて、それを虫の知らせ程に感じとることも適わない一介の高校生である真尋にとって明日の太陽が必ずしもいつもと同じ方角から同じ速度で同じ軌跡を辿って昇り同じ輝度で輝くなんて保証は何処にもないのだという漠然とした不安を感じることさえ時は感情を押し流し少年は如何にして心配することをやめて少女を愛するようになったか";
# perl nyaru.pl
171

cf. keyword:突然の「さよなら」…迷い込んだラビリンス…あなたはだれ?…教えて