#!/usr/bin/perl -w
use strict;

while (<DATA>)
{
   if (m|^\s*<DTC>| ... m|^\s*</DTC>|)
   {
      print;   
   }
}

__DATA__ 
...is your data consisting of the C program...