#
# put the string ",kcah HPAJ rehtona tsuJ" into $_
#

s$$,kcah HPAJ rehtona tsuJ$;

#
# remove and print the last character of $_ 23 times
#

(($$)->(($$)->(($$)->(($$)->(($$)->(($$)->(($$)->(($$)->(($$)->(($$)->(($$)->(($$)->(($$)->(($$)->(($$)->(($$)->(($$)->(($$)->(($$)->(($$)->(($$)->(($$)->(($$)->(($$)->(($$)->(($$=sub{print chop})))))))))))))))))))))))))));;

#
# put the string "\nrekcah rehtona tey morf\n" into $_
#

s$$\nrekcah rehtona tey morf\n$;

#
# set $; to the sub reference from the previous code
#

$;=$$;

#
# do the same as before
#

$;->$;->$;->$;->$;->$;->$;->$;->$;->$;->$;->$;->$;->$;->$;->$;->$;->$;->$;->$;->$;->$;->$;->$;->$;->$;()