$segment =~ s/^\d{2}(?!\d)/testtext/;