#!/usr/local/bin/perl
#
#  HTMLのタグを小文字に変換
#
#  2001.10.02 typed in by Jun Obama
#
while(<>){
  s/<(\/)?([\w]+)/<$1\L$2/g;                #要素タイプ名を小文字に
  s/ (\w+)="/ \L$1="/g;                     #属性名を小文字に
  #空要素タグを /> で閉じる
#  s/<(br|hr|img|link|input|col|base|meta|area|param)(.*?)>/<$1$2 \/>/g;
#  s/<a name="(.*?)"/<a name="$1" id="$1"/g; #id属性を加える
  print;
}
#
#  end of file
#