$message =~ s/\$subKey/$subVar/o;
[download]

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

To say, to answer a question you should know 50% of answer...

Give us more details and your problem will be easier to advice...