Select Code to Download

#define CXt_NULL        0
#define CXt_SUB         1
#define CXt_EVAL        2
...
#define CXt_SUBST       4
#define CXt_BLOCK       5
#define CXt_FORMAT      6

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

[~] $ cat tmp/format 
format =
@<<<<<<<
...
perl -l tmp/format
foo
>>><<<