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

for my $t ( @text )
{
    print "org $t\n";
    for my $re ( @regex )
    {
        $t = &$re($t);
    }
    print "new  $t\n";
}