[问题求助] 请教一下perl的切片操作应该怎么写

minase

读入的变量是INDEX 00 04:00:65，需要转换成04，00，65
最终转换成

04*系数1 + 00*系数2 + 65*系数3
这个代码应该如何写?

523066680

my ($a, $b, $c) = (split( /[ :]/, "INDEX 00 04:00:65" ))[-3,-2,-1];
$a * $e1 + $b * $e2 + $c * $e3
复制代码

或者用正则捕捉

my ($a, $b, $c) =  ("INDEX 00 04:00:65" =~ /(\d+):(\d+):(\d+)/)
$a * $e1 + $b * $e2 + $c * $e3
复制代码