print "$_\n" for grep { / / } split /\./, $clean_text;