count=0,
while ($html =~ [aug<\/td>]g) { $count++ }