$str = "make sure this string is less than 45 chars and truncate on whitespace if need be";
$fstr = substr($str,0,45);
$sstr = substr($str,45);
$fstr =~ s/\s+\w*$// if $sstr =~ /^\w/;