perl -pi.bak -e'if (!/^s/) { $_ = "" }' filename