my $data = ` ... `;
print "Got data length [$data]\n";

##</code><code>##

open PIPE, " ... | ";
while( <PIPE> )
    {
    ... do stuff ...
    print;
    }
close PIPE or die "Got error [$!|$?]\n";