$reg1 = 1;
$reg2 = 0;
...

open my $dat, "< Datei" or die "Geht nicht :(\n";
while (<$dat>){
 if (($reg1) && (/^unleserliches\s+Konstrukt/)){...}
 if (($reg2) && (/xyz/)){...}
 ...
}