s<(\w+)/><substr( $_, 0, pos $_). "$1\n">ge;