Well off the top of my head...

while ( length($string) > 45 ) {
    $_ = $string;
    /\s.*$/
    $string = $`;
}
[download]

... but I'm sure there's even cleaner ways to do it. (Yeah I know Death to dot star and all but I did say off the top of my head :)