my ($num) = $id =~ /(\d+)/ or next;