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