$/ = '^END';

##</code><code>##

print {$filehandles[$i]} $line if $line=~/$regex[$i]/;