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