my $re = qr/...(?\$var=a(\d+|\w-\w+)b).../;