Win8 Strawberry 5.8.9.5 (32)  Thu 04/15/2021  2:32:48
C:\@Work\Perl\monks
>perl -Mstrict -Mwarnings

my $rqr = qr/foo/;
my $rsq =  q/foo/;

my $s = 'foofoofoo';

print "$rqr match: '$1' \n"   if $s =~ m{ ($rqr+) }xms;
print "'$rsq' match: '$1' \n" if $s =~ m{ ($rsq+) }xms;

^Z
(?-xism:foo) match: 'foofoofoo'
'foo' match: 'foo'