#!perl -pl
1while$x=chop,/s/&/t/&/o/&/p/;$_.=$x