Help for this page

Select Code to Download

Select or download this

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