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