perl -le "$(cat <<'EOF'
$, = q( ); print q(a)..q(z);
print "I am a JAPH-BASH in-line-multi-line.\n";
EOF
)"