in reply to Substitution question

Is there a way to say something like $NewVariable eq whatever $ExistingVariable would be if I applied s/^Super// to it?
But of course
my $str1 = "SuperMan"; print $str1, $/; (my $str2 = $str1) =~ s{^Super}(); print $str2, $/; __output__ SuperMan Man

HTH

_________
broquaint