use strict; 

print "Content-type: text/html\n\n";

open LOG, "anuncis.txt" || die "$!"; 

while (<LOG>) { 
chomp; 
my @attributes = split /\|/; 
for my $attribute (@attributes) { 
print "Anunci: $attribute, \n"; 
} 
}
 
close LOG;