use 5.014;
use strict;
use warnings;

while (defined (my $line = <STDIN>)) {
    my ($id) = $line =~ /\beid\s*-?\s*(\d+)/;
    say $id;
}

##</code><code>##

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