$command = 'Do this ${command} to ${computer}';

$command =~ s[
                 \$
                    {
                      ([^}]+)
                    }
             ]
             [
                  $
                    {
                        \l$1
                    }
             ];

$command =~ [same as above][$dynamic_vars{$1}];