perl -e'use re "eval";';$#ARGV<0&&exit 1;...'