if ($words =~ /"{2,}/g) { ... }