if($es =~ /\b$ 0.00 \b/) {print " ##
##

sub searchcustomer {
open (HANDLE, $datafilename) or &diedatafilenotfound;
@data = ;
close(HANDLE);
$max = scalar (@data);
$counter = 0;
$found = 0;
while ($counter <= $max)
 {
  $line = $data[$counter];
  $jn = substr ($line, 0, 10);
  $ph = substr ($line, 10, 10);
  $ag = substr ($line, 20, 10);
  $na = substr ($line, 30, 10);
  $pr = substr ($line, 40, 10);
  $es = substr ($line, 50, 10);
  $ad = substr ($line, 60, 10);
  $st = substr ($line, 70, 65);
  $cm = substr ($line, 135, 65);
  $counter++;
  if (index($jn, $FORM{jobnumber}) != -1) 
  {if (index($ph, $FORM{phnumber}) != -1)
   {print "
           Job Number:   $jn
           Name:         $na
           Phone:        $ph
           Agency:       $ag
           Product:      $pr
           Estimate:     $es
           Amount Due:   $ad
           Status:       $st
           Comments:     $cm


           

\n";
    $found = 1;
   }
  }
 }

if($es =~ /\bone\b/)
{print "


  
   
  
  
  
  
  
  
   
  
  
  
  




\n";}
 if ($found == 0) {print "Sorry, no match was found
\n";}
 print "Click Here to search again