Select Code to Download

map { s/>.*// } (my @items = split /\?</, $pat) ;

my %freq = () ;
map { $freq{$_}++ } @items ;