($first,$rest) = $body =~ /(.*?\w{5,}\.)(.*)/;