# first possibility
$scalar = quotemeta('.*');
$foo =~ s/$scalar/string/;

# second possibility
chomp($scalar = <>);
$scalar = quotemeta($scalar);
$foo =~ s/$scalar/string/;