#!/usr/bin/perl
use feature qw(say);

$math = "120%*20%";
$math =~ /(\d+)(\%?)(\*|\+|\/|-)(\d+)(\%?)/g;

say eval "$1 $3 $4";