Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
use strict;
...
my $txt = <INPUT>;
$txt=~s/<([^> ]*)([^>]*>)/"<".uc($1)."$2"/egsi; #Updated: only element
+ names except attributes
print OUTPUT $txt;