while( length( $$dataref ) > pos( $$dataref ) ){
        $$dataref =~ m{\G^(#.*$)}gcm and do {
            push @matches, [ "COMMENT", $1 ];
            TRACE "# COMMENT $1";
            next;

        };;
        m{\G([\<\>])}gcmx and do {
            TRACE "## $dent error-stray<> { $1 } at pos(@{[pos]})";
            last inlineLOOP;
        };;;