if($c eq '{'){
  $tag = 1;
  # wir sind hier, weil $c gleich '{' ist; so wird $buffer nie gefüllt und die folgende Zeile ist daher überflüssig.
  $buffer .= $c if $c ne '{';
}