my $x = q(Some string of stuff keeping $signs in tact);

##</code><code>##

my $x = q{Test};
my $x = q+Test+;
my $x = q(Test);
my $x = q^Test^;
...