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

##</code><code>##

my ( $keep ) = $string =~ /^([^\|]+)/;