print my $n = () = split /-/, 'a-b-c';