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