Select Code to Download

my ($value,$key) = $_ =~ /^([^\|]+)\|(.*)/;

my ($key,$value) = split(/\|/,$_,2);
next if $seen{$value};
print "$key: $value\n";
$seen{$value}++;

my $index = index($_,'|');
my $key   = substr($_,0,$index);
my $value = substr($_,$index);