$ perl -Mstrict -Mwarnings -E 'say eval for map { "12 $_ 3" } qw{+ - * / % **}'
15
9
36
4
0
1728