my $pat = 'id\\d+';

while (<>) {
    print if /$pat/;
}