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