perl -CSD -le " print qq{use utf8;\nprint qq{I \x{2665} Perl\n};\n}; " >foo.pl

##</code><code>##

    use Data::Dump qw/pp /;
    print STDERR pp("$output_string");
##</code><code>##

"use utf8;\nprint qq{I \xE2\x99\xA5 Perl\n};\n\n"