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