Maybe you forgot to assign a value to $Delay_id?

BTW commenting the use strict; line is about the silliest thing you can do, it installs delayed bugs in your script (badly paraphrasing TimToady).

This doesn't warn:

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

my $Delay_id = '(23';

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