anchor.diff:          | fileName :: tl ->
               let lineEndings = lineEndingMap fileName
               let fileText = (System.IO.File.ReadAllText fileName)
  -            let matches = Regex.Matches(fileText, pattern)
  +            let regex = new Regex(pattern, RegexOptions.Multiline)
  +            let matches = regex.Matches(fileText)
               let matchesList = matches |> Seq.cast |> Seq.toList
               let rec addInfo list (acc : (string * int * Match) list) =
                   match list with
  
positive.code:         | [] -> List.rev acc
      convertFiles projectCodeFiles []
  
  // "(?<parse_function>parse_term)(?:[ ]?)(?<atSign>[@]?)(?:\x22)(?<parseString>.*?)(?:\x22)"
  // A parse_term in code should macth
  // (?<parse_function>parse_term) - the named group parse_function which is the function name parse_term
  // (?:[ ]?)                      - an optional space
  // (?<atSign>[@]?)               - the named group atSign which is an @ before opening ". It is optional here to match were we missed adding @.
  // (?:\x22)                      - a starting " here as \x22
  // (?<parseString>.*?)           - the named group parseString which is any non greedy characters upto the next "
  // (?:\x22)                      - a ending " here as \x22
  
  // "(?<parse_function>parse_type)(?:[ ]?)(?<atSign>[@]?)(?:\x22)(?<parseString>.*?)(?:\x22)"
  // A parse_type in code should macth
  // (?<parse_function>parse_type) - the named group parse_function which is the function name parse_type
  // (?:[ ]?)                      - an optional space
  // (?<atSign>[@]?)               - the named group atSign which is an @ before opening ". It is optional here to match were we missed adding @.
  // (?:\x22)                      - a starting " here as \x22
  // (?<parseString>.*?)           - the named group parseString which is any non greedy characters upto the next "
  // (?:\x22)                      - a ending " here as \x22
  
  let test001 =
  
negative.code:         @"iterate.fs";
          @"cart.fs";
          @"define.fs";
          @"help.fs";
          @"database.fs"]
      let rec convertFiles filenames acc =
  