$string1 =~ s/(.{8})(.*)/$1/m;