OP *
Perl_newASSIGNOP(pTHX_ I32 flags, OP *left, I32 optype, OP *right)
{
    OP *o;

    if (optype) {
	/* .... */
        return irgendwas;
    }
  /* ganz viele Zeilen */
}