my $s = 'hello world! how are you? whoops, forgot.';

my @no_caps = $s =~ /[.?!]\s*((?![A-Z])[a-z]\w+)/g;