my $ua = LWP::UserAgent->new()
my $res = $ua->get( 'https://www.google.com/hosted/services/v1.0/reports/ReportingData' );

my $csv = Text::CSV->new();

my $text = $res->content();
open my $fh, '<', \$text;

LINE: while ( my $line_data = $csv->getline_hr( $fh ) )
{
    my ($email, $usage, $quota) = @{$line_data}{qw( account_name usage_in_bytes quota_in_mb )};

    ...
}

close $fh;