join('', map {
 "(?{(length($$i)>length($$_))$$i !~ /$$_/ | $$_ !~ /$$i/})"
} 1..$_)