{ local $/=undef; $_ = <> }
$_ = "?>$_<?perl";
s{<\?=(.*?)\?>}{<?perl print($1); ?>}sgi;
s{\?>(.*?)<\?perl}{ my $a=$1; $a=~s/\\/\\\\/sgi; $a=~s/'/\\'/sgi; "print '$a';\n"}sgie;
eval($_);