while ( $tmpl_line =~ /\[IF\s+NAME\s*\=\s*\"(.*?)\"\s*EXPR\s*\=\s*\"(.*?)\"\s*](.*?)\[\/IF\]/sg ) {
...
my $if_erg = ( eval qq( 1 if ($if_exp) ) || 0 ) ;