$string =~ s/(?<!\d)\d{4,5}(?!\d)//g;