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

##</code><code>##

>perl -wMstrict -le
"my $html = 'xxx aug</td> yyy aug</td> zzz';
 ;;
 my $count = 0;
 while ($html =~ m[aug</td>]g) { $count++ }
 print $count;
 ;;
 my $count2 =()= $html =~ m{ aug</td> }xmsg;
 print $count2;
"
2
2