#!/usr/bin/perl

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

my $linePrefix = '';

while (<STDIN>) {
   chomp; # Remove newline
   if (/(^<DATA>\t).*(<\/DATA>$)/) {
      if (length() <= $MaxLineLength) {
         print $linePrefix; # Empty only for first line
         print;
         $linePrefix = "\n";
      }
   }
   elsif (/(^<COLUMNS>\t).*(<\/COLUMNS>$)/) {
      s/$search/$replace/g;
      s/$searchEnd/$replaceEnd/g;
      print $linePrefix;
      print;
      $linePrefix = "\n";
   }
}