php:

<?
function GetSpecialText($fname, $r = false) {
  if (!is_array($fname)) {
    $fd = @fopen($fname, 'r');
    if (!$fd) return false;
  } else {
    reset($fname);
  }
 
  while (!is_array($fname) ?
          ($line = fgets($fd, 4096)) :
          (list($k, $line) = each($fname))) {
    $line = str_replace("\r", '', $line);
    if (is_array($fname)) $line .= "\n";
 
    if ($line{0} == '#') {
      // Comment
      continue;
    }
    if ($line{0} == '@') {
      // Special tag:   @tag value\n
      $l = substr($line, 1);
      $l = ltrim($l);
      $p = strpos($l, ' ');
      if ($p === false) {
        // Error.. we ignore this line
        continue;
      }
      $tag = strtolower(substr($l, 0, $p));
      $value = trim(substr($l, $p));
      if (isset($o) && isset($o[$tag])) $o[$tag] .= "\n$value";
      else $o[$tag] = $value;
    } else {
      if (isset($o) && isset($o['body'])) $o['body'] .= $line;
      else $o['body'] = $line;
    }
  } // while
 
  if (!is_array($fname)) {
    fclose($fd);
  }
 
  // Remplacements
  if ($r) {
    reset($o);
    while (list($k, $v) = each($o)) {
      $o[$k] = replace_array($v, $r);
    } // while
  } // if ($r)
 
  return isset($o) ? $o : false;
} // GetSpecialText
?>