perl -n -E '/\beid\s*-?\s*(\d+)/; say $1;' your_data_file