$str =~ s{ \b [Ss]t \. }{sankt}gx;