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