$text =~ s/\b(?<!<)S\.(?!=)/<S.=initial>/g;