my $x=0; $toCalc="($x+1)*2+1"; $x=calc($toCalc); sub calc {????? return ? }