Select Code to Download

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

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

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

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

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