The problem is that you did:

for $x (this ? (...) : "") {
  # code that modifies $x
}
[download]

When this is false, $x does not get assigned the value "", but rather is aliased to it. And you can't change "" since it's a constant string.

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker.
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;