print <<"EOT"; ... @{[$foo ?"Blah blah bla" : "Other blah; more other blah"]} ... EOT #### my $headers = $foo ? "Blah blah bla" : "Other blah; more other blah"; print <<"EOT"; ... $headers ... EOT