#!/usr/bin/perl


use warnings;
use strict;

my (@lines,%hash);

open (IN,"<data.txt") or die "cannot open file for reading: $!";
@lines = <IN>;
close (IN) or die "cannot close file: $!";

foreach (@lines)
{
    $_ =~ /(.*)\|(.*)\|/;
    $hash{$1} = $2;
}
[download]