use Text::Quote; Text::Quote->quote_prop('compress_at',1); undef $/; print "use Text::Quote;\nundef\$/;\nprint eval();\n__DATA__\n".Text::Quote->quote(<>);