here_doc

here doc: ```perl # 先定义一个变量, 用于替换. my $a = 90; # 定义Here doc: TEXT: # 1. TEXT两侧 "使用双引号" 与 "不使用引号" 效果相同; # 2. 如果不使用引号，<<与TEXT之间不能有空格; # 3. 如果使用单引号，doc内的 ......