perlによるタグ削除プログラム

下記のプログラムの作成をお願いします。できればPerl言語でお願いします。 ①ディレクトリhtmlに4桁の数字のフォルダがあります。 ②そのフォルダ内にファイルがあり、そのファイルを読み込みhtmlのタグをすべて除去し 　もともとのファイル名で拡張子txtファイルを保存します。 　ファイル内に404 かつ　not foundの文言がある場合はtxtファイルを保存しません。 ③②で読んだファイルは削除します。 申し訳ありませんが、結構急いでおります。明日中に仕上げていただける方をできれば希望します。