my $RE = join '|', <RECORDS>;
my $compiled_RE = qr/$RE/;