my @RS = split "", $digits;