perl -le '
J}s rule'
JAPHs rule

perl -le '
$J=q$JAPH$;print"${J}s rule";
'
JAPHs rule