my %loops = (
    '<TMPL_LOOP NAME=GRUPPE_' => \&gruppen
);

my @functions = $string =~ s/(<TMPL_LOOP\sNAME=GRUPPE_)(\d+)/[$1,$2]/ge;