my %result = map {split /\|/} <FILE>;