How to delete the word after a regular expression

Example:

Lucas RUNCYCLE Rule1 Astigmatism
Robot RUNCYCLE Rule2 Jack RUNCYCLE Calendar1 June
Lucy RUNCYCLE Exception4 Fear RUNCYCLE Calendar5 August

In this example, how can I delete the next after the expression RUNCYCLE? (i.e. Rule1, Rule2, Calendar1, Exception1, Calendar5)

I'm thinking of awk and/or sed but I can't figure out how to exactly do it. BTW, I'm programming in Korn shell.

Thanks in advance.

With perl:

perl -p -e 's/(RUNCYCLE)(\s\S+)/\1/g' infile

With sed:

sed 's/RUNCYCLE [^ *]*/RUNCYCLE/g' file

ruby -ne 'gsub(/RUNCYCLE[ \t]*[^ \t]*/,"RUNCYCLE ");print' file