my @in = grep { /\.txt$/ } readdir IN; # read all file names form dir except names started with dot

##</code><code>##

my @in = grep { !/^\./ && /\.txt$/ } readdir IN; # read all file names from dir except names started with dot

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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