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