my %text_for = map { chomp; split /\s*\|\s*/, $_, 2 } <$iplist>;