$line =~ s/(<\/*thead>|<\/*tfoot>)//gi;

テーブルにこんなタグあんのか？