use strict;
use warnings;
use Data::Dumper;

local $/;
my %data = (map{unpack 'x19A5x25A*', $_}<DATA>);
print Dumper(\%data);


__DATA__
Data Collected for SA120:Prct Dirty Cache Pages =            0


Data Collected for SA121:Prct Dirty Cache Pages =            1


Data Collected for SA122:Prct Dirty Cache Pages =            0


Data Collected for SA220:Prct Dirty Cache Pages =            0


Data Collected for SA221:Prct Dirty Cache Pages =            0


Data Collected for SA222:Prct Dirty Cache Pages =            17