($new = $old = "SuperMan") =~ s/^Super//;