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