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