while (my ($piece) = $httpReply->content =~ /regex/g) {
      ...
    }