Select Code to Download

if ( /if.*?\{/s .. /.*?\}.*?else/s ) {
     $_ =~ s/\{//;
     $_ =~ s/\}//;
}

if (c=e) {
    call pgme;
...
    call pgmd;
    call pgmc;
}