Help for this page
my @realSentence = grep { / / } @sentences;
print "$_\n" for grep { / / } split /\./, $clean_text;