#!perl -p
($_)=sort{$a-$b}y/t//,y/r//,y/e//>>1