#!/usr/local/bin/perl use strict; use warnings; # ヒアドキュメント print "1: ヒアドキュメントを使用する。( 変数展開なし )\n"; my $text_no_expand = <<'EOS'; aaaa iiii uuuu EOS print "$text_no_expand\n"; print "2: ヒアドキュメントを使用する。( 変数展開あり )\n"; my $str = "eeee"; my $text_expand = <<"EOS"; $str oooo EOS print "$text_expand\n";