#!/usr/bin/perl

for (<*.dat2>)
{

  $f=$_;
  $f=~s/.dat2$//;
  open (F,">>$f") || die("could not write '$f': $!\n");
  print F (-s $f ? "\n%\n" : "") .`cat "$_"`;
  close (F);

}