#!/usr/bin/perl 

open (LOG, "<messages.txt") 
while (<LOG>) { 
chomp; 
my @attributes = split /\|/; 
for my $attribute (@attributes) { 
print $attribute, "\n"; # or do whatever here 
} 
} 
close LOG;