$re = qr/$regex/;

$_ =~ $re;