use strict;
use warnings;

use Test::More tests => 1;

my $have = '111:99:678:foo:{}';
my $want = '111:99678:foo:{}';

$have =~ s/^(\d+:\d+):/$1/;

is $have, $want;