#define CXt_NULL        0
#define CXt_SUB         1
#define CXt_EVAL        2
#define CXt_LOOP        3
#define CXt_SUBST       4
#define CXt_BLOCK       5
#define CXt_FORMAT      6
##</code><code>##

[~] $ perl -le'$_="foo";s/foo/my $x="bar"/e;print;print ">>>$x<<<"'
bar
>>><<<

##</code><code>##

[~] $ cat tmp/format 
format =
@<<<<<<<
my $x = "foo"
.
write;
print ">>>$x<<<";
[~] $ perl -l !$
perl -l tmp/format
foo
>>><<<