$cells = scalar s{(</td>)}{$1}g;
$spam += COMPLICATED_TABLE if $cells > 4;