Wieso sed aufrufen? Du kannst doch im Perl-Skript jede Datei einlesen, mit s/<\/body>/bar\n<\/body>/ deine Ersetzungen machen und die Datei wieder schliessen.