Should be:
if($text=~/Hail/i)
Quote:
|
if($class == 'Berzerker')
|
Equality operators for text are not the same as for numbers. Should be:
if($class eq 'Berzerker')
See here for additional information on Perl operators:
http://www.unix.org.ua/orelly/perl/prog3/ch01_05.htm
Also, it looks like you are missing a closing brace at the end, needed to close the "sub EVENT_SAY" block.