for instance do the newlinine in the ref

my $str = <<FOO;
  a load of constant stuff...@{[
  "optional bit in the middle " if defined $option
  ]}loads more stuff
  FOO
[download]