$code .= $_ if(!/CALLPERL/);
$name = $1 if(/.flash.*name=([^&][^ ]*)/);
$name = $1 if(/.flash.*name="([^&]*)"/);
$code .= $_ if(!/CALLPERL/);
$name = $1 if(/.flash.*name=([^&][^ ]*)/);
$name = $1 if(/.flash.*name="([^&]*)"/);
($embed = `swfdump -e $name`) =~ /WIDTH="([^"]*)"/;
$width = $1;
print "<td bgcolor=\"#ffffff\" width=\"$width\">";
($embed = `swfdump -e $name`) =~ /WIDTH="([^"]*)"/;
$width = $1;
print "<td bgcolor=\"#ffffff\" width=\"$width\">";