my $html;$html.=$_ while<DATA>;$html=~s/[^ ]  <([^\/])/
'  <'.chr(ord($1)-32)/ges;$html=~s/\n//gs;$html=~s/^  /
/;$html=~s/ {2,3}/SPC/g;$html=~s/ //g;$html=~ s/SPC/ /g
;$html=~s/<([^\/])/'<'.chr(ord($1)-1)/ge;print join"\n"
,join('',($html=~m/(?:<([^\/])|( ))/g)),'';# Formatting
__END__

  <kbd>Type some HTML</kbd> into a <var>Variable</var>.
and you set it's <tt>value</tt>. <u>Amazing!</u>   <br>
<object code="srccode"><param name="code" value="Perl">
 <u>You don't have a Perl enabled browser :-( shame</u>
<img alt="Perl forever!" src="perl.png"></object><form>
Quote this text:<samp>Perl. Live it, love it, learn it.
</samp>  <q>Perl. Live it, love it, learn it. </q><font
color="#FF0000">Perl is the only cure to your headaches
</font><script language="JavaScript">function push_me()
{alert('Javascript won\'t help!') }</script><marquee>IE
won't help! </marquee>  <i>When this just hurts... </i>
<button name="pushme" onClick="push_me();return true;">
<dir> <li> Go for Perl! </dir> <font size="+1"><strong>
 Author: Casey Tweten, 100% Perl Geek </strong> </font>