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

##</code><code>##

sub val_search
{
 my $ret_val = 0;                                          
  { 
   
   ($ret_val) = ($line =~ /$_[0]/);
   print "ret_val = ", $ret_val, "\n";
   return $ret_val;
  }
 }