Select Code to Download

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

h...o
 e...,
...
       w...d
        o...