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