#!/usr/bin/perl -w
use strict;

my $line = "this-is-aline-one-two";
foreach (split (/-/,$line))
{
  print "$_\n";
}
__END__
PRINTS:
this
is
aline
one
two