$ perl -wE'
$_ = "foo bar baz";
m/(\w{3})/g;
say $1;
m/(\w{3})/g;
say $1;
m/(\w{3})/g;
say $1;
'
foo
bar
baz