p$_[~/(.)\1 /||4]while gets