#!/usr/bin/perl
open SAVEF, ">savefile.txt";
  or die "Ошибка при открытии файла savefile.txt: $!";
foreach (<>) {
 if (open file, "<$_") {
    @f=<file>;
}
}
foreach (@f) {
#удаление тегов
}
print SAVEF @f;
close SAVEF;