my $re = '^Money$1';
'teststring' =~ /$re/