Well, just to offer another way to do it:

$text =~ /(.*) - (.*) - (.*)/;
@field = ($1, $2, $3);
[download]

This is better if the delimiters aren't likely to stay the same forever ...