open IN, '<', "Outpatient/$in" or next;
  open OUT, '>', "TXT/$in" or die "can't open file Formatted/$in";