# Was building $var3 in scalar instead of list context
# my $var3 = map { s/\r?\n\Z/(munched)/; $_ } <<EOT;
my ($var3) = map { s/\r?\n\Z/(munched)/; $_ } <<EOT;
Var also has an interpolated var:
       $interpolated
And the last newline is also absent ->
EOT