#!/usr/bin/env perl
use strict;
use warnings;
my $re = qr{
REMOVE_THIS.*?
\s+
.*?
\s+
}msx;
#my $html = do { local $/; };
#$html =~ s/$re//;
opendir(my $dh, ".") or die "$!";
my @files = grep { s/\././g < 2 } <*.html>;
closedir $dh;
for my $file (@files) {
local $/ = undef;
open my $fh, "<", $file or die "$!";
my $content = <$fh>;
$content =~ s/$re//;
print $content;
close $fh;
}