Select Code to Download

print @filehandles[$i] if (/@regex[$i]/../^END_OF_BLOCK/);

print $filehandles[$i] if (/$regex[$i]/../^END_OF_BLOCK/);

print $filehandles[$i] $_;

print {$filehandles[$i]} $_;

use strict;
use warnings;