$_="abcedf 5163 1234 5678 or 1234516323943293";
print "$1\n" while /(5163(?:\s*\d){8})/g;