sub {
my $field = $_[0];
my $limit = $_[1];
my @sliced = split(" ",$field);

my ($count,$back);
foreach(@sliced) {
if ($count < $limit) {
$back .= $_ . " ";
} else {
$back .= "...";
if ($count == $limit) { last; }
}
$count++;
}

return $back;

}