my $x = '20*5/3*3';
  $x =~ s/(\d+)([\*\/])(\d+)/int(eval("$1$2$3"))/eg;
  print "$x\n";

Output: 100/9