#!/usr/bin/perl

use HTML::PullParser;
use HTML::Entities;

my $doc = <<'EOF'; my %options = ();
<input value="abc" /> abc &nbsp; abc
<% abc ( '<input value="abc" /> abc &nbsp; abc <span> %>', $abc ); %>
EOF

$doc =~ s{
    <%
    ((?:
        '[^']+'
        |
        "[^"]+'
        |
        \$?[\w\s\(\);,]+
        |
        [^%]+
    )+)
    %>
}{  
    my $content = $1;
    HTML::Entities::encode_entities ( $content );
    qq'<asp_pp content="$content">'
}gsex;

foreach ( qw{ start text default } )
  { $options{$_} = "'$_', text, tagname, attr"; }
my $p = HTML::PullParser->new ( doc => $doc, %options );

my $output = "";
while ( my $token = $p->get_token() )
{ 
  my $text = $token->[1];
  $text =~ s|abc|<b>abc</b>|g if $token->[0] eq 'text';
  $text = "<%$token->[3]->{content}%>"
    if $token->[0] eq 'start' and $token->[2] eq 'asp_pp';
  $output .= $text;
}
print $output;