$href->{key4} = {
		 subkey1 => "Hello",
		 subkey2 => eval {
		   ($ {^__} =<<EOT) =~ s/\r?\n\Z/(munched)/;
This works fine,
and also strips
my ending newline ->
EOT
		   return $ {^__};
		 },
		 subkey3 => "No explosion here...",
		};