use strict;
use warnings;

my $data = <<DATA;
<p <pseudotag>>
DATA

use HTML::Parser;

my $p = new HTML::Parser();
$p->handler('start', \&start_sub, 'text');
$p->report_tags('pseudotag');

$p->parse($data);
$p->eof;

sub start_sub {
    my $text = shift;

    print "$text\n";
}