my $rx = qr/^[0-9]+$/;
$self->re(\$rx); # or
$self->re(\qr/^[0-9]+$/);