perl -wlpe "s/(^\w+ )|\G(b)(?=a)|\G(.)|/$1 || uc $2 || $3/ge"