Help for this page
Select Code to Download
Select
or
download this
$/ = '^END';
Select
or
download this
print {$filehandles[$i]} $line if $line=~/$regex[$i]/;