my $string = "Keep this | toss this";
my ( $keep ) = $string =~ /^(.*?)\|/;
print $keep, "\n";