- 「あらら」を「\xa4\xa2\xa4\xe9\xa4\xe9」にする oneliner。
  ソースに日本語コードを直接書けないときに便利。

% perl -F"''" -ape 'map {printf "\\x%x", ord} @F;'

- BEGIN ブロックでは __DATA__ から読み込めない(仕様)。モジュール化
  するときはまった。
- クォート: 今まではヒアドキュメントを使っていたので行数くってた。
  こうすれば良かったのだ。

print qq!<a href="$fn"><img src="$tn"></a>\n!;