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

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

      ... whatever ...

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

    return $result ;
  } ;