'body*' is a string that has a 'star' in it. It certainly is not a wild card.

you must use 'matching' with regular expressions.

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

I suggest you scan the docs for how this all works, or check out some of the tutorials.

Have fun.