use strict;
use warnings;
{
    local $/="\n\n";
    while (<DATA>) {
         my (undef, $o, undef, $q, undef, $c, undef, $u) = split /\n|(?: : )/, $_;
         print "Usage for object is $u bytes. Quota is $q bytes. Server is lnxdayhome01. Path is $o\n";
    }
}
__DATA__
Object    : T:\HD1\UDENTJP 
Quota    : 250000000 Bytes 
Current    : 0 Bytes 
Used(%)    : 0%