# $badsigns = "<|>$";

# error('bad_signs') if (checksigns($FM{'text'},$badsigns)) ;

# nach verbotenen Zeichen suchen...

sub checksigns {

my ($word,$bad) = @_;

if($word =~ /([$bad])/) { return $1; } else { return 0; }

}