my $string = 'abcdef 5163 1234 5678';
  my $extracted = $string =~ /(5163(?:\d{8}|\s\d{4}\s\d{4}))/;