Условное расщепление в Perl

Question

У меня есть следующие предложения:

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

Есть ли способ разделить строки так, чтобы два последовательных слова имели «.»(точка) между ними будет рассматриваться как одно слово?

Следовательно, мы надеемся получить это после разбиения:

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

Стандарт s/\s+//g будет разбивать все на основе пробела.

Answer 1

Попробуйте разделить на:

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

Это выражение соответствует любому пробелу, который не следует за точкой, без сопоставления с самим периодом.

Answer 2

Без разбиения с использованием регулярного выражения:

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