$s = "xx|xx|xxxx|xx|xxx|xx|xx|xx"; $s =~ s[(?