#!perl -p s/([so])([yn])/$1\n$2/g;