my $str1 = "SuperMan";
print $str1, $/;

(my $str2 = $str1) =~ s{^Super}();
print $str2, $/;

__output__

SuperMan
Man