2010-02-04 ヒアドキュメントを切り取り線で切り取る修行 Perl my $x =<<"- - - ->8 - - - -"; this is a test. - - - ->8 - - - - print $x;