Select Code to Download

my($before, $after) = split(/\./, $word);

my @tokens = split(/\./, $word);

$word =~ /^[a-zA-Z]+\.[a-zA-Z]*$/;