print "\b\b\b\b" if ($count == 4);
$count = 0 if ($count == 4);