$line =~ s[ \$ # Dollar sign (literal) { # Open brace (literal) ( # capture (into $1) [^}]+ # One or more non-close brace characters ) # end capture } # Close brace (literal) ][$dynamic_variables{$1}]xg;