my $sink = '';
open( my $fh, '>', \$sink ) or die "Can't open handle into scalar: $!\n";
## ...
$ftp->get( "remote", $fh );

my @lines = split( /\n/, $sink );
for( @lines ) {
## ...
}