$string = 'keep|throw';

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

print $keep;

##</code><code>##

keep