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