gets p puts$1%$_+=$&while/#$&(.+?).+ (?!\D+^\1)/