$mystring =~ s/(\d{3,5})/