#!/usr/bin/perl -w
 
use strict;
use HTML::TokeParser::Simple;
 
my $p= HTML::TokeParser::Simple->new(shift);
 
while( my $token=$p->get_token)
{
  $token->delete_attr('width') if 
    $token->is_start_tag(qr/t(?:able|d|r)/);
  print $token->as_is;
}