++$c while $n =~ m[$t]g;