my( $first, $second ) = split /\|/, $string;