print map { /(.+)\./ && "$1\n" } sort RetrieveIllustrationList( $cl_userinput );

##</code><code>##

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

##</code><code>##

print join "\n", map( /(.+)\./, sort RetrieveIllustrationList( $cl_userinput ) ), '';

##</code><code>##

local $, = "\n";
print map( /(.+)\./, sort RetrieveIllustrationList( $cl_userinput ) ), '';

##</code><code>##

print map "$_\n", map /(.+)\./, sort RetrieveIllustrationList( $cl_userinput );

print "$_\n" for map /(.+)\./, sort RetrieveIllustrationList( $cl_userinput );