my $s = "abcdefg";

my @c = split /\.*/, $s;
print '/\.*/: ', join("-", @c), "\n";

my @d = split //, $s;
print '//:    ', join("-", @d), "\n";

__END__
/\.*/: a-b-c-d-e-f-g
//:    a-b-c-d-e-f-g