<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">while(&lt;STDIN&gt;){
    @key_word=split(/\s+/);
    chomp;
    if($key_word[0]=~/$ARGV[0]/ &amp;&amp;
       $ARGV[1]&lt;=$key_word[1] &amp;&amp; $key_word[1]&lt;=$ARGV[2]){

	print "\# ".$_."\n";

	while(&lt;STDIN&gt;){
	    if($_=~/position/ || $_=~/time/){
		$read_data="TRUE";
		last;
	    }else{
		print $_;
	    }
	}

    }

    if($read_data=~/TRUE/){
	$read_data="";
	redo;
    }
}
</pre></body></html>