$x . "\n"

##</code><code>##

"$x\n"

##</code><code>##

>perl -we"my $x; /$x/"
Use of uninitialized value in regexp compilation at -e line 1.
Use of uninitialized value in pattern match (m//) at -e line 1.

##</code><code>##

if (($Delay_id =~ /\(\d\d/) || ($Delay_id =~ /\(\d\d\d/)){

##</code><code>##

if ($Delay_id =~ /\(\d\d/){

##</code><code>##

if ($Delay_id =~ /\((\d\d\d?)/){