local $/="* +";
my @Serverlist=<INFILE>;
for(@Serverlist)
{
 my ($IPandName,$Protocol,$Server)=split /\n/;
 #Polish your  info here to the real format
};