perl -MEnglish -e "map { $LIST_SEPARATOR=$_; print qq(@ARGV=), eval qq(@ARGV),qq(\n)} qw(+ - * / %)" 1 2 3


1+2+3=6
1-2-3=-4
1*2*3=6
1/2/3=0.166666666666667
1%2%3=1