$ perl -le '
> $str = q{703555121245874|45874 Smith St|Your Town|New Hampshire};
> chop( $index = substr( $str, 0, index( $str, q{|} ) + 1, q{} ) );
> print qq{$index\n$str};'
703555121245874
45874 Smith St|Your Town|New Hampshire
$