Dear perl folk I would greatly appreciate if you tell your ideas for the next task :
TASK: Build a list of regexps on a given list of patterns

----------------
example :
INPUT :
@list = ('12341', '12342', '12343', '13341', '13342')
RESULT : 
@res=('1[23]34[12]', '12343')
----------------
[download]

I hope you got an idea.
thanx in advance
Alex