Chat room hard validating forms with perl