=~ is the binding operator. See perlop for details. It binds the left hand side to a pattern match or replacement. In this particular example, all <c>'s will be replaced by the value of $count, etc.