>>3 http://perldoc.perl.org/perlretut.html#Using-regular-expressions-in-Perl
mode_message/templates.pl
would contain a constant of
use constant S_CHAT => 'No chat discussion.';kareha.pl would contain
sub post_stuff($$$$$$$$$$$$$)
{
...
make_error(S_NOCHAT) if $comment =~ /chat/