$ perl -le '
> $str = q{  this- is-aline  - one-  two  };
> @arr = split m{\s*-\s*}, qq{-$str-};
> shift @arr;
> print qq{->$_<-} for @arr;'
->this<-
->is<-
->aline<-
->one<-
->two<-
$