$l1 = substr $w1, $intersect[ 0 ] - 1, 1;