if($b[$x]=="***Begin $subject"){
while ($b[$x]!="***Begin Here***\n"){