Why not let the split regex do some of the work of removing spaces?

my ( $last, $first ) = split m{\s*,\s*};
[download]

Cheers,

JohnGG