print-$#a**s/e (?!>.*s)|s <.*|1//g,$/for<>