$var=<<"EndOfText";
g
s
d
regkngljkasn
EndOfText
print $var;