$html_tag = ''; #### my $x = SOME_HTML; while($x =~ /\G(.*?)(<(?:"[^"]*"|'[^']*'|[^'">])*>)/gcs){ do_something_with_text($1); do_something_with_tag($2); }
## my $x = SOME_HTML; while($x =~ /\G(.*?)(<(?:"[^"]*"|'[^']*'|[^'">])*>)/gcs){ do_something_with_text($1); do_something_with_tag($2); }