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