{
    my $re; BEGIN { $re = qr{...} }

    sub IsNumber {
        return $_[0] =~ $re;
    }
}