foreach(@foundfiles) {

  if ( -d $_ ) {

  print "directory\n";

  }

  $ofn = $_;

  $_ = lc ($_);
  $_ =~ s/\s/_/g;
  $_ =~ s/[^a-zA-Z0-9_\/\.\s-]//g;

  print "$ofn -> $_\n";
  
  
  #move("te\ st","te_st") or die $!;
  move($ofn,$_) or die $!;
  



}