$re = join "|", map quotemeta, @column