#!/usr/local/bin/perl
# -*-Fundamental-*-

while (<>)
  {
    if (/\d\d\d\d-\d\d-\d\d \d\d:\d\d:\d\d: ([^:]*): (.*)/)
      {
        $tag = $1;
        $msg = $2;
        $tag =~ s/\s*$//;
        if ($tag =~ /^(mark_tm|config)\s*$/) { print; } }
  }