Select Code to Download

#! /usr/local/bin/perl
use strict;
...
        print "Not Ok '$_' =>\n '$string'  expecting:\n '$testcases{$_
+}'\n";
    }
}

#! /usr/local/bin/perl
use strict;
...

    print "$string\n";
}

<style type="text/css">
<!--
...
SPAN.normal     { font-stretch: normal; }
-->
</style>

<span class="italics">My</span><span class="wide"><font color="ff0000"
+>Nickname</span></font>
<span class="shadowed"><font color="55aaaa">D<font color="ddddff">ia<f
+ont color="55aaaa">D<font color="ddddff">e<font color="55cccc">§</spa
+n></font></font></font></font></font>
<span class="italics">T<span class="shadowed">h<span class="wide">i<sp
+an class="narrow">s is <span class="normal"><font color="444444">sill
+y</span></span></span></span></span></font> SMALL STUFF and BIG STUFF
<span class="wide">WIDE<span class="narrow">NARROW<span class="normal"
+>normal</span></span></span>