Help for this page
if($b[$x]=="***Begin $subject"){ while ($b[$x]!="***Begin Here***\n"){
if($b[$x] eq "***Begin $subject"){ while ($b[$x] ne "***Begin Here***\n"){
if($b[$x] =~ /\*\*\*Begin $subject/){