my $regex = qr/(9*0*)/;
my $variable = $number =~ m/$regex/;
my $ref = \$variable;
# ...
if ($$ref){
   print LOG "REF: $regex\n"; 
   # ...
}