#!/usr/bin/perl

my $MaxLineLength = 8060;
$search = '<COLUMNS>';
$replace = '<DATA>';
$searchEnd = '</COLUMNS>';
$replaceEnd = '</DATA>';
$fileContents = '';

my $first = 0;
while (<STDIN>) {
   chomp;
#  print "\n" if $first++;
   if (/(^<DATA>\t).*(<\/DATA>$)/) {
      if (length() <= $MaxLineLength) {
         print "\n" if $first++;
         print;
      }
   }
   elsif (/(^<COLUMNS>\t).*(<\/COLUMNS>$)/) {
      s/$search/$replace/g;
      s/$searchEnd/$replaceEnd/g;
      print "\n" if $first++;
      print;
   }
}