$string1= "hello, world\n"; $string2= $string1; pos($string1)= 4; while ($string1=~/(.)/gs) {$win_right= $1; $string2=~/(.)/gs; $win_left= $1; print " "x$n++, "$win_left...$win_right\n"}