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