How to find a word with different endings in the string

SELECT

REGEXP_SUBSTR('I have earned 100 dollars today ','earn((ing)|(ed))')

FROM dual;

result : earned

If you change the string

SELECT

REGEXP_SUBSTR('I have been earning 100 dollars today ','earn((ing)|(ed))')

FROM dual;

result: earning