my @realSentence = grep { / / } @sentences;

##</code><code>##

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