my $numbers = $string =~ /(5163(?:\D*\d){8})/;