if ( $x == 20 ) {
        my (undef , $data) = $this->read_processR ;
        if ( $data =~ /\s$n\s+\.\.\.\s+\// ) { last ;}
        $x = 0 ;

##</code><code>##

if ( $x == 20 ) {
        my (undef , $data) = $this->read_processR ;
        last;
        $x = 0 ;