#!perl -p
s/as(s)/$&.$1^''/ige