unless (@words) {
    @words = split /\s+/, $text;		
}