@GetServiceList = `grep ^[a-z] ./sub/100087.txt`;
chomp @GetServiceList;
print join (", ", @GetServiceList);

##</code><code>##

spray
sendmail
crond

##</code><code>##

spray, sendmail, crond