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