perl -MO=Deparse -
 :;$:=~s:
-:;another Perl Hacker
 :;chop
$:;$:=~y
 :;::d;print+Just.
$:;
__END__
$: =~ s/\n-/;another Perl Hacker\n /;
chop $:;
$: =~ tr/;//d;
print 'Just' . $:;
- syntax OK