Help for this page

Select Code to Download


  1. or download this
    use Regexp::Common
  2. or download this
    $term=~s/(\d+)@($RE{balanced}{-parens=>'[]'})/rpt($1,$2)/eg;
  3. or download this
    $term=~s/(\d+)([\*\/])(\d+)/int(eval("$1$2$3"))/eg;
  4. or download this
    $term=~s/(\d+)([+-])(\d+)/eval("$1$2$3")/eg;