s/$/ p<s=s<r=r<p=p>r>s>p/
s/^\(.*\)_\(.*\) .*\1\(.\)\2.*/\1\3\2/