#!/usr/bin/perl
$math = "120%*20%";
$math =~ /(\d+)(\%?)(\*|\+|\/|-)(\d+)(\%?)/g;
IyEvdXNyL2Jpbi9wZXJsCnVzZSBmZWF0dXJlIHF3KHNheSk7CgokbWF0aCA9ICIxMjAlKjIwJSI7CiRtYXRoID1+IC8oXGQrKShcJT8pKFwqfFwrfFwvfC0pKFxkKykoXCU/KS9nOwoKc2F5IGV2YWwgIiQxICQzICQ0IjsK