open (FILE, '1.dat') || die "$!";

$num=0;

 while ($line=<FILE>) {

 $num++ if $line =~/AZII*/;
    if ($line=~/AZII*/ .. /AZII*/) { 

      open (DES, ">>out/$num.txt");

      print DES $line;
 }

     if ($num == "5"){ # process 5 files only
      last;
     }

       }