% perl -MO=Deparse chester
chester syntax OK
$+ + s/\\\s q\\+//s
    + s/$/$$/s / s///s
    . s[{q`!^/s.`^q\s][. s]s
    . s/\d*/do { 'JAPH' }/es + 'es)/$'
    + s/$_\$/$_$_/s
    + s///s
    + print($_);