chomp(my @RE = <RECORDS>);
my $RE = join '|', map quotemeta, @RE; $RE = qr/($RE)/;