# ...
$input = <>; # string which can contain any chars
$input =~ s/\b(?=\w)/\$/g; # words prepend with dollar sign
print $some_file <<"END";
my \$var = "$input";
END