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

##</code><code>##

=tom t=
=Dick =
=Harry=

##</code><code>##

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