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

##</code><code>##

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

##</code><code>##

if($b[$x] =~ /\*\*\*Begin $subject/){