my @cls = split ".", $field;

##</code><code>##

my @cls = split /\./, $field;