-n s/[aeiouy]?/"1&~$.&y!$&!!c?\$&:next"/gee;print 49 honza(w)
The one below is 2 strokes worse, but I found it interesting to solve the problem with two substitutions. I wonder if there is a way to do it with just one. -p s/[aeiouy]?/"1&~$.&y!$&!!c?\$&:S"/gee;s/.*S.*//s 51 bob This one is also worse: -p s/[aeiouy]?/"1&~$.&y!$&!!c?\$&:S"/gee;$_ x=!/S/ 50 bob /-\ndrew
