Split 

my @parts = split $separator, $line;