??||print$p[$_-$'-//],$/for@p=grep{(1x$_)!~/^(..+)\1+$/}2..$$