my $pat = qr/a/;
'aaaa'  =~ /$pat/gp or die;
print "MATCH=[${^MATCH}]\n";