$s = 'Goldman_Sachs_2002';;
$s =~ s[_(?=.*_)][]g;;
print $s;;
GoldmanSachs_2002