$in =~ s/(?<=[a-zA-Z])\n(?=[a-zA-Z])/ /g;