my $foo = q(bar baz qux );