#!perl

use strict;
use warnings;
use FindBin;

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

my @dispatch;
foreach (@inputs) {
    my $outfile = "$FindBin::Bin/../blocks/$_";
    open my $ofh, '>', $outfile || die;

    my $file    = "$FindBin::Bin/../rxo/$_";
    open my $fh,  '<', $file    || die;
    my $regex = <$fh>;
    close $fh;

    push @dispatch, { file => $ofh, regex => qr/$regex/ };
}

while ( my $line = do{ local $/ = 'END'; <> } ) {

    foreach (@dispatch) {
        print { $_->{file} } $line if $line =~ $_->{regex};
    }
}