#!/usr/local/bin/perl -w
use strict;

my ($i, $compile_me, @names)=(1, "{my \@matches;", "no match");

while (<DATA>) {
    next if /^\s*$/;
    last if /END CONFIG/;
    chomp;
    my ($name, $reg)=split;
    push @names, $name;
    $compile_me.="push \@matches, $i if /$reg/o;";
    $i++;
}
$compile_me.="\@matches}";

while (<DATA>) {
    chomp;
    print "\nmatches found for $_\n";
    my @matches=eval $compile_me;
    foreach (@matches) {
        print $names[$_] , "\n"
    }
}

__DATA__
Fred_and_Friends  fr.d
Paul_and_co       paul
some_numbers      \d{2}
freud_likes_fred  fr

END CONFIG

freud
fred
NaNa
pauline
12312sdfsdf
2