...>perl -e "print +('foo' ne 'foo' ? 'ungleich' : 'gleich'), ' ', ('foo' eq 'foo' ? 'gleich' :
 'ungleich')"
gleich gleich