html をテキストへ簡単な変換

タグの中身が全部消えますけど，たったこれだけ！ですよね，よく考えたら．

#!/usr/bin/perl

while (<>) {
    s/<.*?>//g;
    print;
}

exit