$0=substr(s="p>r=r>s=s>p=p<s<r<p",match(s,$sub(/_/,".")),3)