use strict;
use warnings;
use Regexp::Common;
my $NUMBER = qr/$RE{num}{real}/;
my @array = ('31:15');
print $array[0] =~ s/($NUMBER):($NUMBER)/$1-$2/er;