in reply to generate combinations of lists

Sounds like homework and I don't think the second answer is the one the teacher wants to see ;-)
$\=~s;s*.*;q^|D9JYJ^^qq^\//\\\///^;ex;print

In Section Seekers of Perl Wisdom