Changing the shebang from #!perl -apF to #!perl -aF -p fixes it.

Not for me, it doesn't. Deparse reads the -aF -p thing as:

split(/\s+/, $_, 0);

So it ignores the -p bit totally. That's not so good. -p -aF, on the other hand, seems fine.

Jasper