Select Code to Download

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

my $headers = $foo ? "Blah blah bla"
                   : "Other blah; more other blah";
...
$headers
...
EOT