ヒアドキュメンツ

http://nais.to/~yto/clog/2006-09-07-1.html

それから、ヒアドキュメント(Here Text)のインデントの件。
インデントを無視する方法として、 Perl Cookbook にこんな方法が
載っていました。

my $var;

($var = <<HERE_TARGET) =~ s/^\s+//gm;

    your text

    goes here

HERE_TARGET

でも、最後の「閉じ用文字列(?)」はインデントできないのがなあ。

こうするとか

($var = <<"    HERE_TARGET") =~ s/^\s+//gm;
    your text
    goes here
    HERE_TARGET

インデントできたけどキモイね。