print map { s/\..*/\n/; $_ } sort(RetrieveIllustrationList($cl_userinput));