$query=qq{SELECT ....};
$queryhandle=$connect->prepare($query);
$queryhandle->execute();
while(my $blog=$queryhandle->fetchrow_hashref()){
    HTML::Entities:encode($blog->{blog_post});
    for(split/ /, $blog->{blog_post}){
        print "<a href='$_'>$_</a>" and next if $_=~m/^http/;
    }
    print "$_";
}
print "<br />";

...