$variable = 'there';
$string = <<END;
Put my variable $variable and !here!
END
print $string . "\n";
$string =~ s/!here!/$variable/;
print $string . "\n";