Printing string in Perl

Question

Is there an easy way, using a subroutine maybe, to print a string in Perl without escaping every special character?

This is what I want to do:

print          


        

Answer 1

$str = q(this is a "string");
print $str;

if you mean quotes and apostrophes with 'special characters'