Use test instead of match (regexpr)