Select Code to Download

use 5.014;
use strict;
...
    my ($id) = $line =~ /\beid\s*-?\s*(\d+)/;
    say $id;
}

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