$body = "Foto von mir: [BILD:ich.jpg]";

    $body =~ s!\[BILD:([a-zA-Z_0-9.]+)\]!eval{
        -e "/srv/www/kukla/images/$1" ? "<p><img src=\"\/images\/$1\"><\/p>" : "nicht gefunden"
    }!gsex;