my $s = 'a.b.c'; say "1: $_" for split /\./, $s; say "2: $_" for split '.', $s;