Select Code to Download

sub shorten {
  local $_ = shift;
...
print shorten("misunderestimate", 15), "\n";
print shorten("all work and no play makes MeowChow a dull boy", 15), "
+\n";
print shorten("imapirateiamiam", 15), "\n";

  $pos = rindex $_, " ", $len;
  $pos = $len if $pos < 0;