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