my( @found ) = $string =~ m/(?<!\d)(\d{4,5})(?!\d)/g;