S n perl 0s