truncate string by length and word

gistfile1.PL

print trunc("11111 222  4444", 9);


sub trunc {
	s/\s+?\S+?$//, return $_ for my $str = substr shift, 0, (shift || 1) + 1;
}
sub trunc {#by http://what-me.livejournal.com/
	$_[0] =~ /^.{0,$_[1]}(?!\S)/s ? $& : '';
}