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