First, show your perl code or we can't point out where to fix it.

Some common things to check if you've already gone through the intro above:

• Did you chomp() the newline off the end of the input?
• Are you using string comparison (eq) or numeric (==) to compare your strings, or a regex?
• Did you consider case sensitivity?