perl -we'use strict;use P;      
my $re = qr{ (?xg) (\w+) };
my $dat = "Just another cats meow";
my @matches = $dat =~ $re;   
P "#matches=%s, matches=%s", scalar(@matches), \@matches;
exit scalar(@matches);'
  output:
Useless (?g) - use /g modifier in regex; marked by <-- HERE in m/ (?xg <-- HERE ) (\w+) / at -e line 2.
#matches=1, matches=["another"]