>perl -e "$ab=q({eval   { return 1*100 }  } iiilll {
eval {return 'mark'}}); $ab=~s/\{\s*eval([^\}]+)\}\s*\}/qq($1})/eeg; print $ab;
if ($@) {print qq(\nERROR\n$@)};"