No linebreaks is not unusual; What about no spaces either?? They don't call me 'Spacewarp' for nothing! 8)

(Oh, and it passes -w, too.)

SPACEWARP:eval('JAPH:where("END");GOTO:where("BEGIN");sub'.pack("c",32).'where{TO:goto("$_[0]");}START:$x=1;UNDER:where("END");END:if($x){OVER:where("MIDDLE");}else{THERE:where("START");}MIDDLE:$_="Just".pack("c",32)."Another".pack("c",32)."Perl".pack("c",32)."Hacker";HERE:where("GOTO");BEGIN:print;');

Spacewarp

DISCLAIMER:
Use of this advanced computing technology does not imply an endorsement
of Western industrial civilization.