RosettaCodeData/Task/Literals-String/Perl-6/literals-string-1.pl6

my $raw = Q'$@\@#)&!#';