open DIRECTORIES, "<", $source or die $!;
while (<DIRECTORIES>) {
   s/\s+\z//;  # Remove trailing whitespace, incl \r and \n
   ...
}