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