if ($gram =~ /.../gi) { ... }