my ($var1, $var2) = (<<'EOI', <<'EOI');
...
EOI
...
EOI