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]
Eureka! Give me a lever long enough ... Eppur si muove Mr. Watson – Come here – I want you Mary had a little lamb That's one small step for a man ... SCE to AUX I think I'll stop here
Results (159 votes). Check out past polls.