# do some clean up:::
  $files=~s/[\r\n]+//;