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

##</code><code>##

/$RE/;

##</code><code>##

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

##</code><code>##

/$compiled_RE/;