$text =~ s!(\bS\.(?=\s))!<$1=initial>!g;