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