#!/usr/bin/perl
use strict;
use warnings;

my $Delay_id = '(23';

if (($Delay_id =~ /\(\d\d/) || ($Delay_id =~ /\(\d\d\d/)){
    print "Matched\n";
}