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