#!perl -pl
$n=0;$n+=y/%*//for/%[^%s]*s/g;$_=$n