Select Code to Download

my $mouse = 'This is a story about mice, "I dint know mice were so sma
+rt."';
print trimTo($mouse,30), "\n";

sub chop_to_size {
    my ($text, $length) = @_;
    return $text if length $text < $length;
...
    $text .= "...";
    $text;
}