Help for this page
my %text_for = map { chomp; split /\s*\|\s*/, $_, 2 } <$iplist>;
while (<$iplist>) { chomp; my ($k,$v) = split /\s*\|\s*/, $_, 2; push @{ $text_for{$k} }, $v; }
www.com | www.net | www.org
No recent polls found