#!/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";