my $string;
{
    local $/ = \2;
    my @pairs = <FOO>;
    $string = join '|',  @pairs;
}