RosettaCodeData/Task/Exponentiation-order/Perl/exponentiation-order.pl

say "$_ = " . eval($_)  for  qw/5**3**2  (5**3)**2  5**(3**2)/;