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