Add racing chars in perl