use strict;
use warnings;

my $test = qq(a (b c d);

print $test;