$var=<<BLAH;

print "Blah";

BLAH

eval $var;