#!/usr/bin/perl -w
use strict;

my $string = 'part of string to keep|part of string to toss';
my $keep = substr($string , 0 , index($string , '|'));