loop{a=gets;i=1;i+=1while$_!=a=a.tr("a-z",$_);p i}