Find regex values in glob of html files and print all unique matches

print_unique_regex_matches.pl

#!/usr/bin/perl -w
use warnings;
use strict;
use Cwd;
use File::Slurp;
use HTML::Strip;

my $hs = HTML::Strip->new();

my %acronyms;
#my @pages = (glob q("*.aspx"), glob q("*.html"));
my @pages = glob q("*.aspx");


foreach my $page (@pages) {
    print "reading $page :::::::\n";
    my $raw_html = read_file($page);
    my $page_text = $hs->parse( $raw_html );
    my @page_acronyms = ( $raw_html =~ /[A-Z]{3,}/g );
    foreach my $acronym (@page_acronyms) {
        $acronyms{$acronym} = 1;
    }
    $hs->eof;
}

foreach my $acronym (sort keys %acronyms) {
    print "$acronym\n";
}