#!/usr/bin/perl
my $s='12:22 (test)125:715 183:107 Noch was 971:821 9821:417 "BlaBla"';
my @l=$s=~/\d+:\d+/gs;
print join('; ', @l)."\n";