#!perl -plaF\b $:=$_=$F[0];$_*=$:while($:-=$F[1]=~y/!//)>1