####
sub abstract {
my ($visible, $hidden);
if (length $_[0] < 150) {
$visible = $_[0];
} else {
my @words = split / +/, $_[0];
my $flag = 0;
while (length $visible < 150) {
$visible .= ' ' if $flag;
$visible .= shift @words;
$flag = 1;
}
$hidden = join ' ', @words;
$visible .= qq[ [read more ...]];
}
return $visible;
}