#!/usr/local/bin/perl
use strict;
use warnings;

my $message = 'Hello';

# 変数展開可能なヒアドキュメント
my $text = <<"EOS";
aaaa
$message
iiii
uuuu
EOS