Selfreproducing perl program

printmycode.pl

$program = <<'EOP';
$program = <<'EOC';
EXPANDME
EOC
$program = substr($program,0,-1);
$outer = $program;
$outer =~ s/EOC(..)$/EOP$1/m;
$outer =~ s/EOC$/EOP/m;
$outer =~ s/EXPANDME/$program/;
print $outer;
EOP
$program = substr($program,0,-1);
$outer = $program;
$outer =~ s/EOC(..)$/EOP$1/m;
$outer =~ s/EOC$/EOP/m;
$outer =~ s/EXPANDME/$program/;
print $outer;