use Text::ParseWords;

   open (MASTER, "<master.txt");

   $delim = "\t";
   $master = <MASTER>;
   chomp $master;
   @list = &quotewords(${delim}, 1, ${master});
   close (MASTER);