Select Code to Download

    my $c = qr/(?>\s|--[^\n]*(?:\n|\z))/; # one whitespace or one comm
+ent

...

    if ($str =~ m/x/gc)
      { print "found x\n" } else { print "missing x\n" }