perl -E'say`$^Xdoc -qj`=~m`"(.*)"`'