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

##</code><code>##

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