perl -e 'print $ARGV[1];' ONE- TWO- TWO-