$string =~ s/^(?=(?:..)+.$)/0/;