Readonly my $REGEX => qr/^\s*([0-9]|\*|\#)\s*$/;

##</code><code>##

    if ( $message =~ $REGEX ) {
        do_something($1);
    }
    else {
        do_something_else();
    }