my @text = 
(
    "aaaabbzz",
    "bbbyyy",
);

for ( @text )
{
    print "org $_\n";
    for my $re ( @regex )
    {
        &$re();
        # or even just &$re
    }
    print "new  $_\n";
}