my $foo = <<'END'; if ($a == 'bar') { } SELECT foo FROM bar WHERE quz==3; END