my $ID = 0123456;
if ($ID =~ /\d{5,7}/ {
    do this...
}