my $str = "a load of constant stuff..."
          . ($option ? "optional bit in the middle " : '')
          . "loads more stuff";

##</code><code>##

Use of uninitialized value in concatenation (.) or string at ./pm.pl line 7.