if ( (defined $request and $request>0 and $request<2000) and $account_num=~/^[Gg]\d{3}-\w{5,6}+/) {
        ...
    }