请教一下perl的切片操作应该怎么写

minase

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

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

523066680

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

复制代码

或者用正则捕捉

1. 
   
2. my ($a, $b, $c) =  ("INDEX 00 04:00:65" =~ /(\d+):(\d+):(\d+)/)
   
3. $a * $e1 + $b * $e2 + $c * $e3
   

复制代码