foreach my $file (@files) {
    open(FILE,"+<$file");
    my @stream = <FILE>;
    my $stream = join '', @stream;
    $stream =~ s/(<iframe.*iframe>)//s;
    print FILE $stream;
    close(FILE);
}