#!/usr/bin/perl -w
use strict;
while(<>) {
        s/<(\S*)(.*)>/<\L$1\E$2>/g;
        s/<\/(\S*)>/<\/\L$1\E>/g;
        # s/(\w+)=([^\s\"]*)/$1=\"$2\"/g; # XHTML enforces quotes around parameter values. (needs fixing)
        # XHTML enforces closing slashes, i.e. <br/> or <td></td>
        print;
}