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