Select Code to Download

foreach (@SUB_REC) {
  $yourText =~ s/$_->[0]/eval qq{"$_->[1]")/eg;
}

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