#!perl -pl
$_=map/[*s]/g,/%%|%.*?s/g