Have you tried simply printing out the contents of $message?

print "\$message is '$message'\n";
[download]

That should at least help you figure out why it's not matching.