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

How odd that no one has suggested this yet: 
print map { s/\..*/\n/; $_ } sort(RetrieveIllustrationList($cl_userinp
+ut));

[download]

In Section Seekers of Perl Wisdom