my $match;
eval "\$String =~ $RegEx"; \$match = \$&";
print $match;