
<p>Existed code - 
   
<p> the script to remove the . is:
$all=~s/\./\n/g;

<p> the script to find the digits from the records 
    if 'MAKE WHOLE' present in the record:

    #if($all=~/MAKE WHOLE/)
#{
#if($all=~/(\d+)/g)
#{
#print $1;
#
#}
#print $1;
#}
#else
#{
#print "bye";
#}

 <p> the above script is not working ie. it give me only 37,      
       because it will match 37 1/2  and 45.