#! /usr/bin/perl
use strict;
use warnings;

my $string = "bla: foo,1234 bar,5678";

my @captures = $string =~ m{,(\w\w\w\w)}g;

print "Matches: @captures\n";