my $foo = (split /|/, $line)[1];