>perl -wMstrict -le
"my $s = 'foo XXX bar YYY foo ZZZ bar';
 print $s =~ m{ foo (.+)  bar }xmsg;
 print $s =~ m{ foo (.+?) bar }xmsg;
"
 XXX bar YYY foo ZZZ
 XXX  ZZZ