perl -ple\$_=map/[*s]/g,/%[^%s]*s/g