such nach dem string, suche das vorangegangene leerzeichen, dann das abschließende leerzeichen.
Da ich kein Perl kann, kann ich dir leider kein source geben.