"Y" =~ /\u(?x: y)/
    or  die "\\u and (?x: ) don't cooperate";

##</code><code>##

/$foo bar[5]/x; # Not the same as /$foobar[5]/
/\ u2/x;        # Not the same as /\u2/, obviously
/\01 2/x;       # Not the same as /\012/
/$hash{a Key}/x;# Not the same as /$hash{aKey}/

##</code><code>##

#!/usr/bin/perl -w
my $x= " b c ";
print for "abcd" =~ /$x/xg;
# prints "bc"

##</code><code>##

print "($1)($2)\n"
    while  "fFFggGGGG" =~ /([a-z]+)\U(\1*)/g;
print "---\n";
print "($1)($2)\n"
    while  "fFFggGGGG" =~ /([a-z]+)\U(\1*g)/g;
__END__
Prints:
(f)()
(gg)()
---
(gg)(G)