#!perl -pl
s/_/./;'r=r<p=p<s=s<r>s>p>r'=~$_;$_=$&