Untested - I wonder if this works:

  require Clone::PP;
  push @HTML::TokeParser::Simple::ISA, 'Clone::PP';
  
  # deep copy
  my $p_blah = $p->clone();
[download]

Clone::Any looks interesting too.