my @SUB_REC = map {[qr{$_->[0]}, $_->[1]]} (
  ['robert|bobby', 'bob'],
  ['(abc)(1234)(def)', '$1$3'] 
);