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

##</code><code>##

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

##</code><code>##

print $filehandles[$i] $_;

##</code><code>##

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

##</code><code>##

use strict;
use warnings;