my @regexe = (
    qr/Ausdruck0/,
    qr/Ausdruck1/,
    qr/Ausdruck2/,
    qr/Ausdruck3/,
);

my @zaehler;

my $code = "while ( my \$zeile = <SUCHE> ) {\n";
for my $i ( 0 .. $#regexe ) {
    $code .= "\tif ( \$zeile =~ m/$regexe[$i]/ ) { \$zaehler[$i] }\n";
}
$code .= "}\n";

print $code;