What's choking? Works for me.

use HTML::TokeParser;
use Data::Dumper;
my $p = HTML::TokeParser->new(
\"
<?php is=1 2 3 four 5 times the='something' ?>
hada
");

while($_=$p->get_token){
    print Dumper($_);
}
__END__
$VAR1 = [
          'T',
          '
',
          ''
        ];
$VAR1 = [
          'PI',
          'php is=1 2 3 four 5 times the=\'something\' ?',
          '<?php is=1 2 3 four 5 times the=\'something\' ?>'
        ];
$VAR1 = [
          'T',
          '
hada',
          ''
        ];
$VAR1 = [
          'T',
          '
',
          ''
        ];
[download]

MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"

I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).

** The third rule of perl club is a statement of fact: pod is sexy.