#!perl -p
$_ x=(1x$_)!~/^(|.|(..+)\2+)$/