$split[1]=~s/(\d\d\d\d\d\d\d\d\d\d)(\d\d\d\d\d\d\d\d\d\d\d)(\d\d\d\d\d\d\d\d\d\d\d)/$1/;