while ($string =~ /(\s+\|)/)
{
        $string =~ s/$1/\|/;
}

##</code><code>##

$string =~ s/\s+\|/|/g;