генератор строк на perl

[sergey_1979]

доброго времени суток.
Нужен генератор строк, голову поломал но так и не смог придумать генератор....
задача вот следующая, имеем строку:

пример [1|2|3] ааа [4|5|6] ddfd

квадратных скобок может быить и больше... любое произвольное колличество.

из нее надо получить все возмодные комбиначии которые могут быть при поочередном изменениии того что в квадратных скобках.

Сам могу сгенерировать эти строки:

пример 1 ааа 4 ddfd
пример 2 ааа 4 ddfd
пример 3 ааа 4 ddfd
пример 1 ааа 5 ddfd
пример 2 ааа 5 ddfd
пример 3 ааа 5 ddfd
пример 1 ааа 6 ddfd
пример 2 ааа 6 ddfd
пример 3 ааа 6 ddfd

а вот написать код... не получается...

[etc]

Задание преподавателя?

[sergey_1979]

спасибо за то что НЕ помогли.

[KUZEN]

подобные вещи используют для составления описания и названий для регистраций в каталогах при раскрутке сайтов В общем фишка такая, для начала мы должны разобрать строку например с помощью split по определённому символу ... затем создать массивы и перебирать их ... в общем задача решаема, просто на самом деле сейчас времени нет что сделать подобное ...
PS: упс вопрос то не по флешу А вообще подобные скрипты есть уже готовые в сети ...