Regex 使用perl提取数字或直接更改数字

包含以下内容。我想做的是提取数字，或者直接更改它们

$harddisk = `wmic logicaldisk get size,caption`;

也许可以用foreach把它们弄到手吗+

foreach（$harddisk=~m/\d+/g）{
推送（@hdd，noideahotput在此；
}

或者可能在正则表达式中使用数学吗？这里我想将$1除以1024

Total Hard disk capacity: 
Caption  Size          
C:       480737488896  
D:       19157479424   
E:                     
F:         

提前谢谢

$harddisk =~ s/(\d+)/$1/g;

e

修饰符意味着将替换作为一个表达式进行计算

e

修饰符意味着将替换作为一个表达式进行计算

$harddisk =~ s|\d+|$&/1024|ge;