foreach my $line () { chomp $line; if ($line =~ m/SOURCE=\.\\(.*)$/i) { push @fileLst, $1; } } close MAKFILE; $fileLst = join " ", @fileLst; return $fileLst;