$o = q[perl -wl -e 'print "This is text";'];;

$o =~ tr['"]["'];;

print $o;;
perl -wl -e "print 'This is text';"