$ perl -we 'print unpack "x*(a*\@0X)*(a*@)*", "hello\n";'

o
lo
llo
ello
hello
ello
llo
lo
o

$ perl -we 'print unpack(pack("(a*)*", unpack("(a*@[])*", "x./a")), " J ust  anotherr perl hacker\n");'
Just another perl hacker
$