print "\b\b\b\b" unless $count %= 4

##</code><code>##

$count = 0, print "\b\b\b\b" if $count == 4;