Quest not wanting to work

[c0ncrete]

you're doing it wrong. completely.

1) you are not correctly using conditional logic chains. everything after your opening if statement should be an elsif or else statement. otherwise, you run the risk of more than one entry matching, as you have had happen previously.

2) you are missing a close bracket at the end of your EVENT_SAY subroutine.

3) the above syntax error would have likely been made clear if you'd run your scripts through the perl interpreter with a couple of command line switches, as has been previously suggested twice.

example

perl -cW path/to/script.pl

the c means compile-only
the w means show warnings