+ elsif($line1 =~ /^\</){ #need to buffer
+ $line1 =~ s/^\< //g;
+ $line1 =~ s/\r//g;
+ chomp $line1;
+ push @buffer, $line1;
+ }
+ elsif($line1 =~ /^p/){ #comment
+ $line1 =~ s/^p //g;
+ $line1 =~ s/\r//g;
+ chomp $line1;
+ print "-- Tesh comment_line :$line1\n";
+ }
+ elsif($line1 =~ /^! output sort/){ #output sort
+ $sort=1;
+ }
+ elsif($line1 =~ /^! include/){ #output sort
+ die "-- Tesh need include\n";
+ }