qq\@{[chr 92]}\

##</code><code>##

qq\@{[pack "c", 92]}\

##</code><code>##

qq\@{[sprintf '%c', 92]}\

##</code><code>##

qq\@{['{'^"'"]}\
qq\@{['~'^'"']}\

##</code><code>##

qq\@{[substr quotemeta ";", 0, 1]}\
qq\@{[prototype("CORE::push") =~ /^(.)/]}\

##</code><code>##

qq\@{[require File::Spec::Win32 and File::Spec::Win32->rootdir]}\
qq\@{[do{require Data::Dumper;substr Data::Dumper::Dumper("'"),-5,1}]}\

##</code><code>##

qq\${eval chr(92).'"'.(chr(92)x2).'"'}\

##</code><code>##

qq\@{[reverse "/"]}\

##</code><code>##

print
qq\@{[chr 92]}\,
qq\@{[pack "c", 92]}\,
qq\@{[sprintf '%c', 92]}\,
qq\@{['{'^"'"]}\, qq\@{['~'^'"']}\,
qq\@{[substr quotemeta ";", 0, 1]}\,
qq\@{[prototype("CORE::push") =~ /^(.)/]}\,
qq\@{[require File::Spec::Win32 and File::Spec::Win32->rootdir]}\,
qq\@{[do{require Data::Dumper;substr Data::Dumper::Dumper("'"),-5,1}]}\,
qq\${eval chr(92).'"'.(chr(92)x2).'"'}\,
qq\@{[reverse "/"]}\;