use strict;
use warnings;
use P;      

my $re = qr{ (\w+) }x;
my $dat = "Just another cats meow";
my @matches = $dat =~ /$re/g;
P "#matches=%s, matches=%s", scalar(@matches), \@matches;
exit scalar(@matches);

##</code><code>##

12:53 >perl 1645_SoPW.pl
#matches=4, matches=["Just", "another", "cats", "meow"]

12:54 >