$/ = ' ';
$line = '';
while($chunk = <>)
  {
    if((length($line) + length($chunk)) > 27)
      {
        # Do the line processing
        $line = '';
      }
    $line .= $chunk;
  }
# Process the final line