Select Code to Download

#!/usr/bin/perl
use strict;
...
if (($Delay_id =~ /\(\d\d/) || ($Delay_id =~ /\(\d\d\d/)){
    print "Matched\n";
}