my @results = $string =~ /(?:^|\|)[^|]*(reg exp)[^|]*(?:\||$)/g;