#!perl

use strict;
use warnings;
use FindBin;

my (@regex, $regex,$file,$outfile,$dir,$dh,@inputs,$inputs,@filehandles,$fh,$ofh);

$dir ="$FindBin::Bin/../rxo";
opendir($dh, $dir) || die "can't opendir $dir: $!"; 
@inputs = readdir($dh);
closedir $dh;
splice @inputs, 0, 2;

foreach(@inputs) {
    #localize the file glob, so FILE is unique to
    #    the inner loop.
    local *FILE;
    local *OUTFILE;
    $file = "$FindBin::Bin/../rxo/$_";
    $outfile = "$FindBin::Bin/../blocks/$_";
    open(*FILE, "$file") || die; 
    open(*OUTFILE, "> $outfile") || die; 
    #push the typeglobe to the end of the array
    $fh = \*FILE;
    $ofh = \*OUTFILE;
    $regex = <$fh>;
    push(@regex,$regex);
    push(@filehandles,$ofh);
    }

$/ = '^END$';

while(my $line = <>) {
  
  for my $i(0..$#inputs) {
  print {$filehandles[$i]} $line if $line =~ /$regex[$i]/;
  }
}