Help for this page

Select Code to Download


  1. or download this
    while ($string =~ /(\s+\|)/)
{
        $string =~ s/$1/\|/;
}
  2. or download this
    $string =~ s/\s+\|/|/g;