or if you want something ugly:

%result =
map{pop@array,length}('1'x$num)=~/^@{['(.*)'.'(\1.?)'x$#array]}$/;
[download]

Apparently, map + regexps can do anything! ☺

Non-destructive:

%result =
map{$array[$i++],length}('1'x$num)=~/^@{['(.*)'.'(\1.?)'x$#array]}$/;
[download]

Apparently, map + regexps can do anything!

I'm pretty sure perl's flavor of regular expressions are turing complete, so you could do it all without the map. (I guess that would make them trans-regular expressions. Anyone got a better name?)

---

-- All code is 100% tested and functional unless otherwise noted.

Is "I'm pretty sure perl's flavor of regular expressions are turing complete" a challenge? :)