my $s = "123456789"; $s =~ s/.//