#!/usr/bin/perl
s;;
;x;
while() { print if (1 x++ $\) !~ m }
{
   $|^(..+)\1+$|^$\$}
}