perl -e 'sub i; i love, perl; sub i { print "... and ", ((join " ",(reverse @_)),substr($_[1],-1,2) eq q|s|? q|| : q|s| ," you ...\n") }'