use strict;
use warnings;
my @strings = (
'1:11:24:9:5057:0x00D13B0D:0x00D13B45',
'1:15:5:10:3582:0x00D13B24:0x00D13B09',
':15:5:10:3582:0x00D13B24:0x00D13B09',
'1:11:24:9:5057:0x00D13B0D:0x00D13B45',
'1:1:25:10:3582:0x00D13B24:0x00D13B09',
);
foreach my $string (@strings) {
print $string =~ /^(\d{1,2}:\d{1,2}:\d{1,2}):/
? "Matched: $1 in $string\n"
: "No Match in string $string\n";
}