Perl - Perl

Estoy leyendo y extrayendo datos de un archivo y
en una linea esta asi: :22.56m:555.56s:56.12m:45.23s......
para la cual tengo que multiplicar por 60, cada una de las cifras que estan con "m" para dejar todo en segundos
por fa si alguien me ayuda es urgente graciassssss....

$line = "22.56m:555.56s:56.12m:45.23s";
$line =~/\d{2}\.(\d{2})m\:\d{3}\.\d{2}s\:\d{2}\.(\d{2})m\:\d{2}\.\d{2}s/g;
print "22.56m:555.56s:56.12m:45.23s\n";
$cifra1 = $1;
$cifra2 = $2;
$multi = $cifra1 * 60 ;
$multi2 = $cifra2 * 60 ;
print "CIFRA1: -->$cifra1<--->CIFRA2: -->$cifra2<--\n";
print "CIFRA1: -->$multi<--->CIFRA2: -->$multi2<--\n";

ok, pero si tengo cifras de "n" cantidades de numeros que deberia poner en " /\d{2}\ " ,por que asi solo es para dos digitos

Muchas gracias Cristian

$line = "22.555555555555m:555.56s:56.66666666666m:45.23s";
$line =~/\d{2}\.(\d+)m\:\d{3}\.\d{2}s\:\d{2}\.(\d+)m\:\d{2}\.\d{2}s/g;
print "22.5659595959m:555.56s:56.1244044404m:45.23s\n";
$cifra1 = $1;
$cifra2 = $2;
$multi = $cifra1 * 60 ;
$multi2 = $cifra2 * 60 ;
print "CIFRA1: -->$cifra1<--->CIFRA2: -->$cifra2<--\n";
print "CIFRA1: -->$multi<--->CIFRA2: -->$multi2<--\n";