Hi!,

Just to give you another option: set the input delimiter ($/)
to a well chosen string in your text file (I would go for "* +"
or something in your case)
Then you can process every server individually:

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

Anyhow.. that`s what I would do, the above code is just
fictional, and untested ;))

GreetZ!,

ChOas

print "profeth still\n" if /bird|devil/;