perl -i -pe'$_ x=/^s/i'