my $re = qr/(?<!["'])(?<=\.)\s*(?!["'])/;