my $str = "foo.bar";
if ($str =~ /\./) {
    print "Contains a period.\n";
}

##</code><code>##

(split(/[a-zA-Z]+(.[a-zA-Z]*)*)/, @$contentString))

##</code><code>##

my @words = @$contentString =~ /([\w.]+)/g;