my @words = split /[\s,.]+/,$rec;