Select Code to Download

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

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

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

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

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

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