Select Code to Download

use String::Interpolate qw(safe_interpolate);

...

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