Perlで$ xとhere-docを結合する方法は？ [閉鎖]

これはどのように書くべきですか？

print <<EOF; if $x
bla
EOF

私はそれが後記の表記法だと思い、ここに文書化されています。構文エラーが発生します。

わかりました、使えそうです

print "bla" if $x;

はい、それが私が望むものです。