in reply to JAPH working in Perl and html

Playing around with the idea a bit 
<html>
<!--
    $/;sub htm{@_[0]=~/#([0-9]+);(?{print+chr($1)})\n/;}
    htm <<'</html>'
-->
<body>
&#106;&#117;&#115;&#116;&#032;&#097;&#110;&#111;&#116;&#104;&#101;&#11
+4;&#032;&#080;&#101;&#114;&#108;&#032;&#104;&#097;&#099;&#107;&#101;&
+#114;&#044;
</body>
</html>

[download]

In Section Obfuscated Code