[Shendare]

Hmm...

1) Looks like you have a line break in your ($text=~/revenge/i) response. Not sure how Perl handles line breaks in string literals. Might be causing a problem.

2) Didn't see a closing brace ( } ) for EVENT_ITEM in this copy/paste.