echo perl loves all of us |  perl -ne '%myself=(i,me,me,i,we,us,us,we); sub i{($_=shift)=~s/_//g; print ((join " ",(reverse map { $myself{$_}?$myself{$_} : $_}  @_)),(substr($_[0],-1,1) eq q|s|? "\b" : ""),(substr($_[1],-1,1) eq q|s|)? q|| : q|s|," ",$myself{$_}?$myself{$_} : $_,"\n") }; s/(\S+)\s+(\S+)\s+(.*)/$1 _$1_, $2, "$3"/; *$1=\&i if ($1); eval;'