$string =~ tr/|/|/s;