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