while () { next unless m{ ^ ( aixFsMountPoint | aixFsSize | aixFsFree ) # $1 \. ( \d+ ) # $2 \s* = \s* ( .* ) # $3 }ix; $data{$1}{$2} = $3; }