my ($word, $ext) = $previous =~ /(.*)\.(.*)/;