($four_digit_num) = /[[:alpha:]]+(\d{4,4})/;  # this pulls out the 4 digits just after any leading characters.