$length = scalar split /|/,$string