if ($subject =~ /^body/) 
{
    # do something
}