in reply to Using map to Add a Line Breaks to a List

print map { (/(.+)\./)[0] . "\n" } sort(RetrieveIllustrationList($cl_userinput));

--Ingo

In Section Seekers of Perl Wisdom