method do_format (Str $line)
 {
 my @results;
 my $ps= $self->_parser_spec;
 while ($line =~ /$ps/g) {
    my %captures= %+;
	my $regmark= $REGMARK;
    my $prematch= $captures{prematch};
	push @results, $self->escape($self->filter($prematch))  unless length($prematch)==0;
    unless ($regmark eq 'nada') {
       my $meth= "grammar_branch_$regmark";
       push @results, $self->$meth (\%captures);
       }
    }
 return join ('', @results);
 }