perl replace substring

my $string = "Hello, World!";
$string =~ s/Hello/Hi/;
print $string;  # Output: Hi, World!