my @words = split m![/()]!, $line;