Help for this page
perl -CSD -le " print qq{use utf8;\nprint qq{I \x{2665} Perl\n};\n}; " + >foo.pl
use Data::Dump qw/pp /; print STDERR pp("$output_string");
"use utf8;\nprint qq{I \xE2\x99\xA5 Perl\n};\n\n"