Select Code to Download

$val1 = 'Torque\\sDriver\\sCS\#:\\s*(\\D{2}\\d{4})';
   $tq = &val_search($val1);

sub val_search
{
 my $ret_val = 0;                                          
...
   return $ret_val;
  }
 }