The way I've done it is to subclass Pod::Simple::PullParser, and override get_token like this...

use strict;
use warnings;
use Data::Dumper ();

{
   package Local::MyPodParser;
   use base "Pod::Simple::PullParser";
   sub get_token {
      my $self  = shift;
      my $token = $self->SUPER::get_token(@_);
      
      # do something with the token
      print Data::Dumper::Dumper($token);
      
      return $token;
   }
}

my $parser = "Local::MyPodParser"->new;
$parser->parse_file("somefile.pod");
[download]

Take a look at TOBYINK::Pod::HTML::Helper which subclasses Pod::Simple::HTML (which is itself a subclass of Pod::Simple::PullParser) to process =for highlighter ... sections.

The one annoyance you might notice is that Pod::Simple::PullParser has a _get_titled_section method that fast-forwards and rewinds the stream of tokens occasionally. The way I've coped with that is to wrap _get_titled_section, setting $self->{_in_get_titled_section} = 1 at the start and delete $self->{_in_get_titled_section} at the end, to act as an indicator of whether we're currently inside that method. Then within my get_token, I only do my processing when we're not inside _get_titled_section.