sub ants{ ##ersetzt sonderzeichen
  my $back = shift;
  $back =~ s/\n/<br>/gm;
  $back =~ s/\;/&sbquo\;/g;
  $back =~ s/ä/&auml\;/g;
  $back =~ s/ö/&ouml\;/g;
  $back =~ s/ü/&uuml\;/g;
  $back =~ s/Ä/&Auml\;/g;
  $back =~ s/Ö/&Ouml\;/g;
  $back =~ s/Ü/&Uuml\;/g;
  $back =~ s/ß/&szlig\;/g;
  $back =~ s/\"/&quot\;/g;
  $back =~ s/&/&amp\;/g;
  return $back;
}

sub ehtml{ ##löst easyhtml-code in html auf
  my $data = shift;
  $data =~ s/\[IMG\]smile\-(\d*?)\[\/IMG\]/<img src="s$1.gif">/gm;
  $data =~ s/\[IMG\](.*?)\[\/IMG\]/<img src="$1">/gm;
  $data =~ s/\[URL\](.*?)\[\/URL\]/<a href="$1">$1<\/a>/gm;
  $data = ants($data);
  $data =~ s/\[B\]/<b>/g;
  $data =~ s/\[\/B\]/<\/b>/g;
  $data =~ s/\[I\]/<i>/g;
  $data =~ s/\[\/I\]/<\/i>/g;
  $data =~ s/\[U\]/<u>/g;
  $data =~ s/\[\/U\]/<\/u>/g;
  return $data;
}