in reply to split $data, $unquoted_value;
my $re = qr/(?<!["'])(?<=\.)\s*(?!["'])/; [download]
Edit: added \s* to strip out space between sentences.