$transcript =~ s/\w?/-$1/; #add leading dash
$transcript =~ s/ //g;

while ($transcript=~/-(.*?)-/msig) {
push @analysts, $1;
}
print "$_\n" for @analysts;