Conditional split in Perl

Question

I have the following suggestions:

my $sent = 'D. discoideum and D. purpureum developmental programs revealed'; 

Is there a way to break the lines so that two consecutive words have. (dot) between them will be considered as one word?

Therefore, we hope to get this after splitting:

 $VAR = ['D. discoideum', 'and', 'D. purpureum', 'developmental', 'programs', 'revealed']; 

The standard s/\s+//g will split everything based on space.

Answer 1

Try to divide by:

 /(?<!\.)\s+/ 

This expression matches any space that does not follow a period, without matching the period itself.

Answer 2

Without splitting using regex:

 my @words = $sent =~ /(\S+\.\s+\S+|\S+)/g;