use 5.014;
use strict;
use warnings;

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