in reply to Substitution question
($new = $old = "SuperMan") =~ s/^Super//; [download]
Of course, this mostly boils down your three lines with the newlines and some other bits taken out.
Abigail