my ( $keep ) = $string =~ /^(.*?)\|/;