my $regex = 'foo\\d+|bar\S+?';
...
m/($regex)/;