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