#2345678 1 2345678 2 2345678 3 2345678 4 2345678 5 23456 s//(my$x=$1)=~s!-(-?)!$1.!g;""/egs;