my $qkey = quotemeta $key; $message =~ s/$qkey/$recorsData{$key}/;