perl -E 'say for qx(/bin/bash -c "cat <<< \\"This is text\\"")'