[thelist] Perl - regular expressions

[Keith]

> I would like to split the paragraph into two parts (which ultimately
> will be displayed in two pages). The trick, however is that I do not
> wish to split in the middle of the word. I have a budget of, lets say
> 99 characters which will split the word "its" right in the middle. I
> would like page to essentially display up to character 99 minus first
> (or last) white space (I think that makes sense).

I'm with you,  Roee, I'd like to see the following reduced to a regex 
too....

$phrase = qq~Nine state attorneys general argued Friday that 
Microsoft must offer a stripped-down version of its Windows 
operating system and make its leading Office software compatible 
with competing operating systems~;

@phrase = split(/ /,$phrase);
foreach (@phrase){
  $word=length($_);
  if($count + $word <99){
    $first .= $_." ";
    $count=length($first);
  }else{
    push(@second,$_);
  }
}
chop($first);
$second = join(" ", at second);

keith