my $len = length($story->{body});
$len = $len > 800 ? 400 : $len < 150 ? 0 : 150;

($para1,undef,$story) = $story->{body} =~ /(.{$len,}?\.["]?)\W*<(p|br\/?)>(.*)/s;