perl -le 's ssSss.s sSsSiss.s s$sSss.ss .$s\107ss.print'

##</code><code>##

perl -le 's //S/s.s /S/Sis/.s /$/S/s.s/ .$/\107/s.print'

##</code><code>##

SisS

##</code><code>##

perl -le 's ssSss.s sSsSiss.s s$sSss.s s.$s\107ss.print'

##</code><code>##

SiG