# auf böses HTML prüfen
sub IsEvilCode {
    my $s = shift;
    $s =~ s/[\r\n]//gm;
    return 1 if $s =~ /[<>]/ig;
    return 1 if $s =~ /<script/ig;
    return 1 if $s =~ /href\s*=\s*['"]?javascript:/ig;
    return 1 if $s =~ /src\s*=\s*['"]?javascript:/ig;
    return 1 if $s =~ /on[a-z]*\s*=\s*['"]?(javascript:)?/ig;

    return 0;
}

# auf nicht erlaubte Tags prüfen
sub CheckBadTags {
    my $c = shift;
    if ( $c =~ /<a\s+href\s*=/im ) {
        return 'html';
    }

    # auf BBCode prüfen
    if ( $c =~ /\[\s*url\s*=/im ) {
        return 'bbcode';
    }

    # auf BBCode prüfen
    if ( $c =~ /\[\s*url\s*\]/im ) {
        return 'bbcode';
    }

    return 0;
}