You need String::Interpolate (or something similar) and the /e modifier:

use String::Interpolate qw(safe_interpolate);

...

$line =~ s/$key/safe_interpolate($fsr_hash{$key})/e;
[download]

(Untested). If you are sure that there are no "evil" components in the replace string you can use eval to do the work of String::Interpolate.