Select Code to Download

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

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

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