Your code doesn't look too problematic in general. However you are preforming string equality tests like this:

but $message is the last field in the line from the input file and isn't being chomped so your string test will likely fail unless you take into account the EOL character(s). If you can correct that (probably best to use chomp to do so) you may have more success.