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

##</code><code>##

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