use warnings; use strict; use Data::Dumper; my $s = ''; my $value = '13.95'; my $q_key = quotemeta('[KEY]'); $s =~ s/$q_key/$value/g; print Data::Dumper->Dump([$s], [qw/s/]); __END__ $s = '';