No point in grabbing all those values from split and then throwing them away (with undef)-

my ($o, $q, $c, $u) = (split /\n|(?: : )/, $_)[1,3,5,7];
[download]

--
Until you've lost your reputation, you never realize what a burden it was or what freedom really is. -Margaret Mitchell