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