Note that  qq// and its ilk are capable of handling balanced paired embedded delimiters  () {} [] <> without frivolous escapades:

c:\@Work\Perl\monks>perl -wMstrict -le
"my $data = 'this is my data';
 my $s = qq(($data));
 print qq{'$s'};
"
'(this is my data)'
[download]