perl -i -ne'/^s/i..print'
# or if we don't care about capital s...
perl -i -ne'/^s/..print'