Someone

                while($stop == 0) {
                    my $inbuf;
                    print "g\n";
                    my $n = sysread($fh, $inbuf, 1);
                    print "h\n";
                    if($n == 1) {
                        print "inbuf match: ";
                        if($_ =~ /[0-9],[0-9][0-9]\>/) {
                            print "yes\n";
                        } else {
                            print "no\n";
                        }
                        if($inbuf eq "\n" || $_ =~ /[0-9],[0-9][0-9]\>/) {
                            $stop = 1;
                        } else {
                            if(!($inbuf eq "\r")) {
                                $_ .= $inbuf;
                            }
                        }
                    }