#!/usr/bin/perl -l

$_ = "\\E";
print;
print qr(\Q$_\E);
__END__
\E
(?-xism:\\E)