Select Code to Download

use strict;
use warnings;
...


Data Collected for SA222:Prct Dirty Cache Pages =            17

$VAR1 = {
          ' SA220' => '            0',
...
          ' SA121' => '            1',
          ' SA120' => '            0'
        };

/.+(SA\d{3}).+?(\d+)(?{$data{$1}=$2})/ for <DATA>