$pool->job($_) while (<STDIN>);

##</code><code>##

  while (!eof(STDIN)) {
    my $buffer ;
    read STDIN, $buffer, 100*1024   or die "$!" ;
    if (!eof(STDIN)) {
      my $nl = rindex($buffer, "\n") + 1  or die "No \\n in lump ?" ;
      if (my $trim = $nl - length($buffer) {
        seek STDIN, $trim, 1   or die "Seek failed ??" ;
        substr($buffer, $trim) = '' ;
      } ;
    } ;

    $pool->job($buffer) ;
  } ;

##</code><code>##

  sub do {
    my ($lump) = @_ ;

    my $result = '' ;
    while ($lump =~ m/(.+)/g) { # Ignores blank lines
      my $line = $1 ;

      ... whatever ...

      $result .= ...whatever..  ."\n" ;
    } ;

    return $result ;
  } ;

##</code><code>##

  sub do {
    chomp;
    my $input = $_;
    $input = shift;