[- $args = shift @param; $theme = $args->{theme}; @suggestions = split(/:+/, &EMU::get_var('suggestions')); $current_word = &EMU::get_var('bad_word'); $the_message = &EMU::get_var('the_message'); $the_message =~ s/\n//g; $the_message =~ s/<.*?>//g -]