($_='Just Another Perl Hacker,' and$
# There's the string
::
{
join '', /\b\w/g
}
=$
# This is the magic
::
{
(split "")[2]^chop
})&&
# Here's the question
print $JAPH;