Select Code to Download

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

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