Help for this page
if ( /if.*?\{/s .. /.*?\}.*?else/s ) { $_ =~ s/\{//; $_ =~ s/\}//; }
if (c=e) { call pgme; ... call pgmd; call pgmc; }