http://www.perlmonks.org?node_id=151416


in reply to Splitting Across Multiple Lines

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 };
Anyhow.. that`s what I would do, the above code is just
fictional, and untested ;))

GreetZ!,

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