#!perl -lp
$-=$_;$b=y/!//d;$_*=$-while$--=$b