$a = "\Qhello! there? How> what< now%";
die $a;
__END__
hello\!\ there\?\ How\>\ what\<\ now\% at - line 2.