Select Code to Download

use strict;

...
        if (length($_) <8){print "\t"}
}
print "\n";

use strict;

...
        print "<td>$_</td>";
}
print "</tr></table>";