I don't experience that gotcha with a modern perl.

However, a nicer fix than too many backslashes strewn in the data would be not to interpolate the Here-doc:
    print <<'HTML';

Look again at jZed's post or ikegami's last point.

Cheers, Sören