$string =~ s/(.)/$char = $1;++$char/eg;