my @bignums = $string =~ /(\d{4,})/;g