[Perl] 開讀檔

open(FILE, 'directories.txt');

foreach $line () {

 # 刪除\r\n
 chop $line;
}