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