000000000000022102840002210284 #### $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/;