my @a= $transcript=~/\s*([^-]+\w)\s*-?/g