if ($subject eq 'body*')
{
   print "All body pages here\n";
}