Ｐｅｒｌのtag除去処理

open(IN, "0000000.html");
while () { $source .= $_;}
close(IN);
$source =~ s/<.*?>//g;
open(OUT, "> test.html");
print(OUT $source);
close(OUT);