here doc:
# 先定义一个变量, 用于替换.
my $a = 90;
# 定义Here doc: TEXT:
# 1. TEXT两侧 "使用双引号" 与 "不使用引号" 效果相同;
# 2. 如果不使用引号，<<与TEXT之间不能有空格;
# 3. 如果使用单引号，doc内的变量将不做替换;
# 4. 如果使用双引号，doc内的变量将做替换;
# 5. TEXT后可以有空格或注释；
my $str = << "TEXT"
This is a here doc,
it can write like this.
this is a = $a.
it contains some text.
TEXT
; # 注意：上一行TEXT后不能有其它字符(包括空格, 注释), 分号需要写在后面一行；
# 注意：此处的TEXT不能使用引号;
print "$str";