c:\@Work\Perl\monks>perl -wMstrict -le "my ($exe, $group) = qw(foo bar); my $s = \"\${s_version/${exe}/$group\"; print qq{'$s'}; " '${s_version/foo/bar'