perl -e "print eval(join('',@ARGV));" 7 * 3