my $str;

$str<<__EOM__;
あいうえお
かきくけこ
さしすせそ
__EOM__

print $str;
（このソースはエラーが出ます）

こんな感じで、複数行を変数に直接代入する方法ってありませんでしたか？
あったような気がするんですが、思い出せないので…