#23456789_123456789_123456789_123456789_123456789_12345678
@s=map{substr$c,$_<0?0:$_,$_<0?$s+$_:$s}1-$s..-1+length$c;