in reply to Matching nested begin/ends
($re=$_)=~s/((begin)|(end)|.)/${['(','']}[!$2]\Q$1\E${[')','']}[!$3]/g +s; $re = join'|',map quotemeta,eval{/$re/}; $re = qr/$re/; [download]
try again call it version 1.0 destroy all evidence that I tried pay someone else to do it for me redefine success order pizza have some cake try management try two more times so my failure is statistically significant
Results (142 votes). Check out past polls.
