$tomatch = join  '|', map {local $_ = $_; s#\|#\\|#s; $_} @results;