$ perl -E'my $x = qq{abc\\def}; say $x'
abc\def

$ perl -E"my \$x = qq{abc\\\\def}; say \$x"
abc\def