open (DB, "<$data_file") or die "$data_file: $!";
while (<DB>) {
   next if $. % 2;   # change 'if' to 'unless' to skip even lines
   chomp;
   my @fields = split /\|/;
   print "$fields[0]";
}
close DB;