#...
my $re = qr/blah/;
if (/$re/){
  # ...
}