my $transcript=q|tom t-Dick -Harry|; 
my @analysts= $transcript=~/([^-]+)-?/g; 
print qq|=$_=\n| for @analysts;