Maybe File::Comments would be use for you.

use warnings;
use strict;

use File::Comments;

my $snoop = File::Comments->new( default_plugin => "File::Comments::Pl
+ugin::C");
my $strip = $snoop->stripped('yourfile');

open IN, "<", \$strip;

while ( <IN> )
{
    chomp;
    @_ = split /\|/;
    next unless $_[5];
    
    #Your processing here
}
[download]