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