Help for this page

Select Code to Download


  1. or download this
    my $transcript=q|tom t-Dick -Harry|; 
my @analysts= $transcript=~/([^-]+)-?/g; 
print qq|=$_=\n| for @analysts;
  2. or download this
    =tom t=
=Dick =
=Harry=
  3. or download this
     my @a= $transcript=~/\s*([^-]+\w)\s*-?/g