utf8で遊ぶ。

以前、この仕様でちょっとはまった。

use strict;
use utf8;
use Jcode;
my $j = Jcode->new;
my $言葉 = '日本語でおけ！';
print $j->set($言葉=>'utf8')->sjis;

ソースをUTF-8で記述すると、変数名その他に日本語が使える（実際には何語でも使えるんだろうけど）。
可読性はもしかしたら上がるかも知れないが、生産性は果てしなく落ちそうだ。打ちにくい。
以前は、こんなソースではまった。

use strict;
utf8;
my $word = '日本語';
print "$wordを表示";

こうすると、「『$wordを表示』なんて変数、宣言してねーぞ」とインタプリタに怒られた。
まあ、本当に役に立たないTIPSだが。